Dim da As New OleDb.OleDbDataAdapter("Select * From Customers", _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
          "Source=|DataDirectory|\nwind2000.mdb")
        Dim dt As New DataTable("Customers")
        da.Fill(dt)
        dgv.DataSource = dt

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist