Public Sub save(ByVal strDatabase As String, ByVal dataSet As DataSet,  ByVal _
  strTable As String)
 
        Dim strConnectionString As String = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabase
 
        Using dataAdapter =  New OleDb.OleDbDataAdapter("SELECT * FROM " & _
          strTable, strConnectionString)
 
            Dim commandBuilder As New OleDb.OleDbCommandBuilder(dataAdapter)
 
            Try
                dataAdapter.Update(dataSet, strTable)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Fehler",  MessageBoxButtons.OK, _
                  MessageBoxIcon.Error)
            End Try
 
        End Using
    End Sub