Visual Basic

Public Function StartupData(ByVal strKeySet as String)
Dim test as string
Dim MyTinyText as string

Try
 ObjComm = New OdbcCommand("SELECT SettingValue FROM pos_setting WHERE LocationCode='KK' AND SettingKey='ADD_BINLOG'", ObjConn)
 ObjConn.Open()
 ObjRead = ObjComm.ExecuteReader()
            If ObjRead.Read Then
                test = ObjRead.Item(0)
                MessageBox.Show("This is " & test & "")
            Else
                MessageBox.Show("No value")
            End If
            ObjConn.Close()
Catch ex As Exception

Finally
Objconn.Close
End Try

/*Column Information For - test.pos_setting*/
---------------------------------------------

Field         Type         Collation          Null    Key     Default  Extra   Privileges                       Comment
------------  -----------  -----------------  ------  ------  -------  ------  -------------------------------  -------
LocationCode  varchar(10)  latin1_swedish_ci  NO      PRI                      select,insert,update,references         
SettingKey    varchar(10)  latin1_swedish_ci  NO      PRI                      select,insert,update,references         
SettingValue  tinytext     latin1_swedish_ci  YES             (NULL)           select,insert,update,references