Private cm As CurrencyManager

Private sub Load
cm = CType(Me.BindingContext(Me.Ds,  "Tabelle"), cm)
end sub

Private sub Löschen
 
Me.BindingContext(Me.Ds, "Tabelle").RemoveAt  (Me.BindingContext(Me.Ds, _
  Tabelle").Position)
                Me.oda.Update(Me.Ds, "Tabelle")
                Me.Ds.AcceptChanges()
end sub