Imports MySql.Data.MySqlClient

Public Class clsConnecetion
    Public ConMy As MySqlConnection = New MySqlConnection

    'Dim Hostname As String = "172.00.00.000"
    'Dim DBName As String = "XXX"
    'Dim SID As String = "admin"
    'Dim Password As String = "1234567890"

    Public Sub ConnectOpen()
        ConMy.Close()
        Try
            With ConMy
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = "Data Source=" & Hostname & ";Database=" & DBName & ";User ID=" & SID & ";Password=" & Password & ";CharSet=tis620"
                .Open()
            End With
        Catch ex As Exception
        End Try
    End Sub

    Public Sub ConnectClose()
        Try
            ConMy.Close()
        Catch ex As Exception
        End Try
    End Sub

End Class