Dim Conn As New SqlConnection     ' Für die Verbindung zur Datenbank
        Dim da As SqlDataAdapter          ' Macht die Anpassung (Adaptierung) 
        ' zwischen Datenbank und DataTable
        Dim ds As New DataSet               ' DataSet faßt eine oder mehrere 
        ' DataTable zu einem Set (Gruppe) zusammen
        Dim dt As New DataTable             ' DataTable enthält die via 
        ' DataAdapter angepassten Daten der Datenbank
        Dim test As String
        ' Verbindungszeichenfolge, mit Angaben zu welcher Datenbank es gehen 
        ' soll
        Conn.ConnectionString = _
          "Server=127.0.0.1;Uid=root;Pwd=;Database=fahrer;"    ' Beispiel !!!!
        test = ds.ToString()
        tb_amp.Text = test
 
        ' Dem DataAdapter mitteilen, welches SQL Kommando er ausführen soll
        ' und welche Verbindung er dazu verwenden soll
        da = New SqlDataAdapter("SELECT * FROM Kunden", Conn)
 
        ' Füllt die DataTable im DataSet mit Daten aus der Datenbank.
        ' Der DataAdapter öffnet und schließt die Verbindung zur Datenbank 
        ' selbst !!
        da.Fill(ds)
 
        ' Teilt dem DataGridView mit, aus welcher DataTable (=DatenQuelle) er 
        ' sich die Daten zur Anzeige holen soll
        grid.DataSource = ds.Tables(dt.TableName)

Rechtschreibfehler sind mein Copyright(C)