Protected DSet As New DataSet
 
public sub LeseDaten()
  Dim DAdapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT F_ID, F_Name," & _
    "F_AddTime FROM   tbl_Filme", myConnection)
  DAdapter.Fill(DSet, "Filme")
  DSet.Tables("Filme").Columns.Add("Deleted", System.Type.GetType( _
    "System.Boolean"))
  dgv.DataSource = DSet.Tables("Filme")
End Sub
 
public Sub SaveDaten()
  For i as Integer = 0 to DSet.Tables("Filme").Rows.Count-1
    if CType( DSet.Tables("Filme").Rows(i)("Deleted") , Boolean ) Then
      DSet.Tables("Filme").Rows(i).Delete()
    End If
 
  Next
  Dim DAdapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM  " & _
    "tbl_Filme", myConnection)
  Dim cb as OleDbCommandBuilder( DAdapter )
  Try
    DAdapter.Update( DSet, "Filme")
  Catch ex as Exception
  End Try
End Sub