Dim ds As New DataSet
Public conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data" & _
  "Source=" & dbpath & ";")
...
Dim SelectCommand As String = "SELECT * FROM Übersetzungen"
Dim CMD As New OleDbCommand(SelectCommand, conn)
daÜbersetzungen = New OleDbDataAdapter()
daÜbersetzungen.SelectCommand = CMD
conn.Open()
daÜbersetzungen.Fill(ds, "Übersetzungen")
...