Public Function AktualisiereTabelle(ByVal Tabellenname As String, ByVal _
  myDataTable As DataTable, _
                                        Optional ByVal Bedingungen As String = _
                                        "") As Boolean
        Try
            'Datenadapter mit SQL Anfrage erstellen
            Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM " & _
              Tabellenname & " " & Bedingungen & ";", myConnection)
            Dim myDataBuilder As New OleDb.OleDbCommandBuilder(myDataAdapter)
            myDataBuilder.ConflictOption = ConflictOption.OverwriteChanges
            myDataAdapter.UpdateCommand = myDataBuilder.GetUpdateCommand
            myDataAdapter.Update(myDataTable)
            'Rückgabewert TRUE = Tabelle aktualisiert
            Return True
        Catch ex As Exception
            'Rückgabewert FALSE = aktualisieren fehlgeschlagen
            MsgBox(ex.Message)
            Return False
        End Try

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!