Dim objConnection As New OleDb.OleDbConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source='PFad zur DB';")
Dim objDataAdapter As OleDb.OleDbDataAdapter
Dim objDataSet As New DataSet
Dim objCmdBuilder As OleDb.OleDbCommandBuilder
 
objConnection.Open()
objDataAdapter = New OleDb.OleDbDataAdapter("Select * From 'Tabelle' WHERE" & _
  "ID=0", objConnection)
objCmdBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
objDataAdapter.Fill(objDataSet, 'Tabelle')