Private Sub cmdSichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdSichern.Click
 
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        'Private Sub INSERT_Datarow(ByVal land As String, ByVal stadt As 
        ' String, ByVal id As String)
        'Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        Try
            conn.Open()
 
            'Im DataSet einen neuen Datensatz hinzufügen
            'Der Tabelle eine neue DataRow hinzufügen
            Dim row As DataRow = ds.Tables("Tabelle1").NewRow
 
            'Werte übergeben
            row("Test") = TextBox5.Text
            row("Test1") = TextBox6.Text
 
            ds.Tables("Tabelle1").Rows.Add(row)
            'Datenbank updaten
            da.Update(ds, "Tabelle1")
 
            MessageBox.Show("Neuer Datensatz  " & strEintrag & " hinzugefügt!", _
                        "Neuer Datensatz", MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", _
              MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try
 
    End Sub

 
Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdÄndern.Click
 
        Dim da As New OleDb.OleDbDataAdapter
        Dim cb As New OleDb.OleDbCommandBuilder(da)
 
        Try
            conn.Open()
 
            Dim row As DataRow = ds.Tables("Tabelle1").NewRow
 
            N1 = ds.Tables("Test")
 
            If N1 = TextBox6.Text Then
 
                With ds.Tables("Tabelle1")
 
                    'Werte übergeben
                    row("Test1") = TextBox5.Text
 
                End With
            End If
 
            ds.Tables("Tabelle1").AcceptChanges()
            'Datenbank updaten
            da.Update(ds, "Tabelle1")
 
            MessageBox.Show("Datensatz  " & strEintrag & " geändert!", _
                        "Datensatz", MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", _
              MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try
 
    End Sub