Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connStr, selectCmd As String, i As Integer
connStr = "Server=...; database=...; uid=...; pwd=...;"
selectCmd = "SEL*ECT * FROM ..."
Dim conn As SqlConnection, cmd As SqlCommand, reader As SqlDataReader
conn = New SqlConnection(connStr)
conn.Open()
cmd = New SqlCommand(selectCmd, conn)
reader = cmd.ExecuteReader()
For i = 0 To reader.FieldCount - 1
txtShow.Text &= reader.GetName(i) & vbTab
Next
txtShow.Text &= vbNewLine & vbNewLine
Do While reader.Read()
For i = 0 To reader.FieldCount - 1
txtShow.Text &= reader.Item(i) & vbTab
Next
txtShow.Text &= vbNewLine
loop
conn.Close()
End Sub