'Lade die Auftrags-Tabelle
        cmd_auftraege.CommandText = "SELECT * from auftraege"
        cmd_auftraege.Connection = New OleDb.OleDbConnection( _
          Settings1.Default.con_ksmm)
        da_auftraege.SelectCommand = cmd_auftraege
        da_auftraege.Fill(ds_ksmm, "t_auftraege")
        ds_ksmm.Tables("t_auftraege").PrimaryKey = New DataColumn() _
          {ds_ksmm.Tables("t_auftraege").Columns("id")}
        ds_ksmm.Tables("t_auftraege").Columns("id").AutoIncrement = True
        ds_ksmm.Tables("t_auftraege").Columns("id").AutoIncrementStep = -1
        ds_ksmm.Tables("t_auftraege").Columns("id").AutoIncrementSeed = -1

    Public Sub DatensatzSpeichern_datarowarray(ByVal Daten As DataTable, ByVal _
      datarowarray() As DataRow)
        Dim AbfrageString As String = String.Format("SELECT * FROM " & _
         "[{0}]", Daten.TableName)
        MsgBox("In Datensatzspeichern_datarowarray")
        Using DatenAdapter As New OleDb.OleDbDataAdapter(AbfrageString, _
         Settings1.Default.con_ksmm)
            Dim oledbcb As New OleDb.OleDbCommandBuilder(DatenAdapter)
            MsgBox("Abfragestring:" & AbfrageString)
            MsgBox("Select: " & DatenAdapter.SelectCommand.CommandText)
            MsgBox("update: " & oledbcb.GetUpdateCommand.CommandText)
            MsgBox("insert: " & oledbcb.GetInsertCommand.CommandText)
            AddHandler DatenAdapter.RowUpdated, _
               New OleDb.OleDbRowUpdatedEventHandler(AddressOf OnRowUpdated_id)
 
            DatenAdapter.Update(datarowarray)
 
        End Using
 
    End Sub