private t_ESRKonten as DataTable
...
t_ESRKonten = dsEsrKonten.Tables("t_ESRKonten")
...
txtKundenNr.DataBindings.Add("Text", t_ESRKonten, "EkoKundenNr")
 
 
Dim localCurrencyManager As CurrencyManager = CType(Me.BindingContext( _
  t_ESRKonten), CurrencyManager)          
localCurrencyManager.EndCurrentEdit()