Public Sub SubmitChangesbyhand()
 
        Dim row As DataRow
        Dim intRowsAffected As Integer
        Dim dvrs As DataViewRowState
 
        dvrs = DataViewRowState.ModifiedCurrent _
                Or DataViewRowState.Deleted Or DataViewRowState.Added
 
        For Each row In tbl.Select("", "", dvrs)
 
            Select Case row.RowState
                Case DataRowState.Modified						‘cmdUpdate = SQLString mit _
                  Paramtern
                    intRowsAffected = submitUpdate(row, cmdUpdate)
 
                Case DataRowState.Added                   
									‘cmdINSERT = SQLString mit Parametern
                    intRowsAffected = submitInsert(row, cmdInsert)
 
            End Select
        Next       
 
    End Sub
 
 
Private Function submitInsert(ByVal row As DataRow, _
                              ByVal cmd As OleDbCommand) As Integer
 
        Dim pc As OleDbParameterCollection = cmd.Parameters
        pc("OrderID").Value = row("OrderID")
        pc("ProductID").Value = row("ProductID")
        pc("Quantity").Value = row("Quantity")
        pc("Unitprice").Value = row("Unitprice")
        pc("Bez").Value = row("Bez")
        Try
            Return cmd.ExecuteNonQuery
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
            Exit Function
        End Try
 
End Function

Langsamkeit entdeckt