'Neuen Datensatz hinzufügen:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim objZeile As DataRow
        objZeile = objDataSet.Tables("Filmsammlung").NewRow()
        With objZeile
            .Item("Filmtitel") = txtFilmtitel.Text
            .Item("Produktionsjahr") = txtProduktionsjahr.Text
            .Item("Medium") = txtMedium.Text
            .Item("Gerne") = txtGerne.Text
            .Item("Preis") = txtPreis.Text
 
            If radsw.Checked = True Then
                .Item("Farbe") = 1
            Else
                .Item("Farbe") = 2
            End If
        End With
        objDataSet.Tables("Filmsammlung").Rows.Add(objZeile)
        objDataAdapter.Update(objDataSet, "Filmsammlung")
    End Sub
Ändern:
    Private Sub btnchange_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnchange.Click
        Dim dblPos As Double
 
        dblPos = Me.BindingContext(objDataView).Position
        With objDataSet.Tables("Filmsammlung").Rows(dblPos)
            .Item("Filmtitel") = txtFilmtitel.Text
            .Item("Produktionsjahr") = txtProduktionsjahr.Text
            .Item("Medium") = txtMedium.Text
            .Item("Gerne") = txtGerne.Text
            .Item("Preis") = txtPreis.Text
 
            If radsw.Checked = True Then
                .Item("Farbe") = 1
            Else
                .Item("Farbe") = 2
            End If
        End With
        objDataAdapter.Update(objDataSet, "Filmsammlung")
    End Sub
Löschen
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        objDataSet.Tables("Filmsammlung").Rows(2).Delete()
        objDataAdapter.Update(objDataSet, "Filmsammlung")
    End Sub
End Class