private Sub UpdateTable( ByVal dt as DataTable, ByVal Tablename as String)
  Dim adapter as New FbDataAdapter("SELECT * FROM """+Tablename+"""", _
    GetConnection( ))
  Dim cb As New FbCommandBuilder(DataAdapter)
  adapter.Update(dt)
End Sub
 
private Sub ReadTable( ByVal dt as DataTable, ByVal Tablename as String)
  if dt.Rows.Count > 0 Then
    dt.Rows.Clear()
 
  Dim adapter as New FbDataAdapter("SELECT * FROM """+Tablename+"""", _
    GetConnection( ))
  adapter.Fill(dt)
End Sub
 
Private AdressTable as New DataTable
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
  ReadTable( AdressTable, "adressen")
 
  adressBinder.DataSource = AdressTable
  BindingNavigator1.BindingSource = adressBinder
  DataGridView1.DataSource = adressBinder
End Sub
 
 
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button9.Click
  Dim antwort As String
  adressBinder.EndEdit()
 
  If ds.HasChanges Then
    ' OK und Abbrechen, Stop-Symbol, Titelzeile "Test"
    if MessageBox.Show("Vorsicht", "Vorsicht", MessageBoxButtons.OKCancel, _
      MessageBoxIcon.Stop) = DialogResult.OK Then
      ' OK wurde geklickt
      'Wenn es der aktulle sein soll.
       CType(adressBinder.Current, DataRowView).Delete()
      UpdateTable( AdressTable, "adressen")
    Else
                ' Abbrechen wurde geklickt
    End If
  End If
End Sub