dim strVerbindungszeichenkette as String = _
  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\ASPNET\daten\banking.mdb")
  Dim ds as DataSet = New DataSet("MeinDataSet")
  Dim strSQL as String = "SELECT * FROM benutzerTabelle"

  Dim objCmd as new OleDbDataAdapter(strSQL, _
  strVerbindungszeichenkette)

  objCmd.Fill(ds, "Benutzer")