Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objConn As Odbc.OdbcConnection = New Odbc.OdbcConnection
Dim strConnString As String
strConnString = "Data Source=TCDB;User Id=kasamura;Password=1234;"
objConn = New Odbc.OdbcConnection(strConnString)
objConn.Open()