Public Function....
        Try
            'Interne Datenbankanbindung
            Dim con_DBconnection As New System.Data.OleDb.OleDbConnection()
            'Sql-String für den Datenadapter.
            Dim str_Sql As String = "SELECT * FROM " & tbl_CurrentTabelle
            'Datenadapter wird konfiguriert, um die aktuelle Tabelle mit der 
            ' Datenbank ab zu gleichen. 
            Dim ds_adp_OleDbDA As New System.Data.OleDb.OleDbDataAdapter( _
              str_Sql, con_DBconnection)
 
            Try
                'Eingabe in der dem Formular zugrundeliegenden Tabelle beenden.
                frm_Formular.BindingContext(ds_DataSetObjekt, _
                  tbl_CurrentTabelle).EndCurrentEdit()
 
                'Datenbank wird geöffnet. Die Funktion habe ich selbst 
                ' geschrieben. Rückgabewert ist die geöffnete Verbindung. 
                ' Funktioniert auch.
                con_DBconnection = eQM_getDBConnection(ds_DataSetObjekt, _
                  str_Backendname)
 
                Dim cb As New OleDb.OleDbCommandBuilder(ds_adp_OleDbDA)
                'Hier entsteht der Fehler.
                ds_adp_OleDbDA.Update(ds_DataSetObjekt, tbl_CurrentTabelle)
 
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                'Verbindung schließen, egal ob die Ausnahme ausgelöst wurde 
                ' oder nicht.
                con_DBconnection.Close()
            End Try
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Function

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)