Dim sqlConn As New SqlClient.SqlConnection( _
           "Server=Metroid\MSDE2k;Integrated Security=SSPI;Database=NORTHWIND")
         Dim ds As New DataSet
 
         Dim da As New SqlClient.SqlDataAdapter("SELECT * FROM Kunden", sqlConn)
         da.Fill(ds, "Kunden")
 
         Dim dt As DataTable = ds.Tables("Kunden")

________
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