Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'laden 
        Dim src$
        Dim adpSrc As OleDbDataAdapter
        Dim adpTar As OleDbDataAdapter
        Dim dsSrc As DataSet = New DataSet()
 
        Try
            'Quelle-Tabelle laden
            src = "SELECT * FROM Persons"
            adpSrc = New OleDbDataAdapter(src, CoStrSrc)
            adpSrc.AcceptChangesDuringFill = False
            PrintDataTableValues(dsSrc.Tables(0), "nach laden mit" & _
              "AcceptChangesDuringFill = false")
 
            adpSrc.Fill(dsSrc)
 
            'In Zieltabelle speichern
            adpTar = New OleDbDataAdapter(src, CoStrTar)
            Dim b As OleDbCommandBuilder = New OleDbCommandBuilder(adpTar)
            adpTar.Update(dsSrc)
 
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
 
    End Sub
 
    Public Sub PrintDataTableValues(ByVal tbl As DataTable, ByVal label As _
      String)
        On Error Resume Next
        Debug.WriteLine(ControlChars.Cr + label)
        Dim r As DataRow
        Dim c As DataColumn
        For Each r In tbl.Rows
            Debug.Write(r.RowState.ToString)
 
            For Each c In tbl.Columns
                Debug.Write(ControlChars.Tab + " " + r(c).ToString())
            Next c
            Debug.WriteLine("")
        Next r
    End Sub