Imports System.Globalization
Imports System.Threading
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Module Connection
Public sql As String
Public Con As New MySqlConnection
Public MyCommand As New MySqlCommand
Public drConnection As MySqlDataReader
Public dtConnection As DataTable
Public daConnection As MySqlDataAdapter
Public Sub Conn()
If Con.State = ConnectionState.Open Then
Con.Close()
sql = "Server=XXXXXXX;User Id=XXXXXXXX; Password=XXXXXXX; Database=dbService; Charset=utf8; Pooling=false"
Con = New MySqlConnection(sql)
Con.Open()
End If
End Sub
End Module