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 = "SELECT * 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