Visual Basic

Public ObjMyComm As New MySqlCommand
    Public ObjMyRead As MySqlDataReader
    Public MyConn As MySqlConnection = New MySqlConnection(Connect())

    Public strSetKey As String
    Public ADD_BINLOG As String = "ADD_BINLOG"
    Public Conn As String
    Public Conn_localServer As String
    Public Conn_localDb As String
    Public Conn_localDbUID As String
    Public Conn_localDbPassword As String
    Public Conn_localDbPort As String


Public Function Connect()

'Data load from App.Config file
        Conn_localDb = ConfigurationSettings.AppSettings("MyLocalDb")
        Conn_localServer = ConfigurationSettings.AppSettings("MyLocalServer")
        Conn_localDbUID = ConfigurationSettings.AppSettings("MyLocalUID")
        Conn_localDbPassword = ConfigurationSettings.AppSettings("MyLocalPass")
        Conn_localDbPort = ConfigurationSettings.AppSettings("MyLocalPort")


        Conn = "DATABASE=" & Conn_localDb & ";DSN=" & Conn_localDb & ";OPTION=3;PORT=" & Conn_localDbPort & ";SERVER=" & Conn_localServer & ";UID=" & Conn_localDbUID & ";"
        MessageBox.Show(Conn)
        Return Conn
End Function


Public Function LoadBlnStartupData(ByVal strSetKey As String)
        Dim test As String

        Try
            MessageBox.Show("**** = " & strSetKey & " " & TerminalLocate & " " & TerminalID & " ")
            MessageBox.Show(TerminalLocate)
            'ObjMyComm = New MySqlCommand("SELECT * FROM pos_setting WHERE LocationCode=' " & TerminalLocate & " ' AND SettingKey='ADD_BINLOG' ", MyConn)
            ObjMyComm = New MySqlCommand("SELECT * FROM pos_setting", MyConn)

            MyConn.Open()

            ObjMyRead = ObjMyComm.ExecuteReader

            If ObjMyRead.Read Then
                test = ObjMyRead.Item(0)
                MessageBox.Show("This is " & test & "")
            Else
                MessageBox.Show("No value")
            End If

            MyConn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MyConn.Close()
        End Try

    End Function