Dim SQL As String = "Select * FROM tblAnrufer"
        Dim DR As DataRow
        Dim CB As OleDbCommandBuilder
 
        DA_Anrufer = New OleDbDataAdapter(SQL, adoConn)
        DA_Anrufer.Fill(DS_all, "Anrufer")
 
        CB = New OleDbCommandBuilder(DA_Anrufer)
        '--- Zugriff auf Tabelle
        DT_Anrufer = DS_all.Tables("Anrufer")
        'Freigabe für das Schreiben im DataGrid
        grdAnrufer.ReadOnly = False
        ' --- ANFÜGEN EINES DATENSATZES
        DR = DT_Anrufer.NewRow()
        ' Füllen der Zeile
        DR("name") = "Name"
        DR("firma") = "xxx"
        DR("rufnr") = "xxx"
        DR("anbieter") = "xxx"
        DR("active") = False
        Try
            'Füge die Zeile hinzu
            DT_Anrufer.Rows.Add(DR)
            'Springe zur eingefügten Zeile und markiere sie
            grdAnrufer.CurrentRowIndex = cm_Anrufer.Count - 1
            grdAnrufer.Select(cm_Anrufer.Count - 1)
            '!Update der Datenbank erfolgt in der Ereignis-Methode!
            'Beendet die aktuelle Bearbeitungsoperation
            cm_Anrufer.EndCurrentEdit()
        Catch ex As Exception
            MsgBox("Es konnte keine neue Person angelegt werden!" & _
              Environment.NewLine & _
            ex.Message, MsgBoxStyle.Critical)
        End Try