Public Function AktualisiereTabelle(ByVal Tabellenname As String, ByVal _
   myDataTable As DataTable, _
                                        Optional ByVal Bedingungen As String = _
                                        "") As Boolean
        Try
            Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [" & _
              Tabellenname & "] " & Bedingungen, con)
            Dim myDataBuilder As New OleDb.OleDbCommandBuilder(myDataAdapter)
            myDataBuilder.ConflictOption = ConflictOption.OverwriteChanges
            myDataAdapter.UpdateCommand = myDataBuilder.GetUpdateCommand
            myDataAdapter.Update(myDataTable)
            Return True
 
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
            End Try
    End Function

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