Dim Conn As New SQLConnection("ConnectionString")
Dim Comm as SQLCommand
Dim DR as SQLDataReader
Comm = New SQLCommand("Select * From Table1", Conn)
Conn.Open
DR = Comm.ExecuteReader
If DR.Read Then
TextBox1.Text = DR("Col1")
End If
Conn.Close