myTxtBox.DataBindings.Add(New Binding("Text", ds, "Tabelle.DatumsFeld"))
AddHandler myTxtBox.DataBindings(0).Format, AddressOf myTxtBox.FormatDate

    Public Sub FormatDate(ByVal sender As Object, ByVal e As ConvertEventArgs)
            If Not IsDBNull(e.Value) Then
                e.Value = DateTime.Parse(e.Value).ToString()
            End If
        End If
    End Sub