'Verbindung zur Datenbank herstellen
 
        Dim objConnection As OleDb.OleDbConnection = _
        New OleDb.OleDbConnection("Provider=SQLOLEDB; " & _
        "Data Source=SF-Server; Initial Catalog=SFSoftware; " & _
        "User ID=" & SQLBenutzer & "; Password=" & SQLPasswort & ";")
 
        'Select Command erstellen welches die
        '"Select-Abfrage" gegen die Datenbank beinhaltet
 
        Dim myOleDbSelectCommand As New OleDb.OleDbCommand
        myOleDbSelectCommand.Connection = objConnection
        myOleDbSelectCommand.CommandText = _
            "select * from plz where Land like 'G%'"
 
        'DataAdapter mit dem SelectCommand verbinden
 
        Dim myOleDbDataAdapter As New OleDb.OleDbDataAdapter
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        Dim myDataSet As New DataSet
        myOleDbDataAdapter.Fill(myDataSet, "Post")
 
        DataGridView1.DataSource = myDataSet
        DataGridView1.DataMember = "Post"

Frank