Private Sub cmdÄndern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdÄndern.Click
 
        Dim conn As New OleDbConnection(connStr)
        Dim SelCmd As New OleDbCommand(sqlstr, conn)
 
        da1 = New OleDbDataAdapter(SelCmd)
        Dim cb As New OleDbCommandBuilder(da1)
 
        ds1 = New DataSet()
 
        'DataSet mit Daten füllen
        da1.Fill(ds1, "Ta1")
        Dim Zeile As DataRow
        Zeile = ds.Tables("Ta1").Rows.Add
        ' Textfeld an Feld in der Tabelle binden
        With Zeile
            .Item("Test") = TextBox5.Text
            .Item("Test1") = TextBox6.Text
            .Item("Test3") = RichTextBox1.Rtf
        End With
        bs1.EndEdit()
 
        ' Update durchführen
        da1.Update(ds1, "Ta1")
 
    End Sub