txterstelltam.DataBindings.Add("Text", ds.Tables(0).DefaultView, "erstellt")
 
'Handler adden
AddHandler txterstelltam.DataBindings(0).Format, AddressOf Me.FormatDate
 
'Die Formatroutine
Private Sub FormatDate(ByVal sender As Object, ByVal e As ConvertEventArgs)
 
Dim dt As Date
 
  Try
 
      dt = e.Value
      e.Value = dt.ToShortDateString  
  Catch
      msgbox("Blabla")
  End Try
 
End Sub