Imports MySql.Data.MySqlClient Imports System.Drawing.Printing Module databypurokCode Public sCon As MySqlConnection = New MySqlConnection Public sComand As MySqlDataAdapter = New MySqlDataAdapter Public ds As New DataSet Dim scrollVal As Integer Dim pagingAdapter As New MySqlDataAdapter Dim pagingDS As New DataSet Dim pagingDS2 As New DataSet Private sRecord_Count As Integer Dim conn As New MySqlConnection Dim cmd As New MySqlCommand Dim dr As MySqlDataReader Dim connectionString As New MySqlConnection("server=10.10.0.10;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706") Private Sub conns() 'Try conn = New MySqlConnection("server=10.10.0.10;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706") conn.Open() 'Catch ex As Exception ' MsgBox(ex.Message) 'End Try End Sub End Module