Public Function AktualisiereTabelle(ByVal Tabellename As String, ByRef ds As _
  DataSet) As String
Dim da As New OleDb.OleDbDataAdapter
Dim builder As New OleDb.OleDbCommandBuilder(da)
 
Dim command As New OleDb.OleDbCommand("SELECT * FROM " & Tabellename & " " & _
  Bedingungen, con)
da.Selectcommand = command
da.Update(ds, Tabellename)
Return Nothing
End Function