Dim WithEvents _db As Binding

_db = New Binding("Text", _ds, "Orders.ShippedDate")
TextBox1.DataBindings.Add(_db)

Private Sub _db_Format(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.ConvertEventArgs) Handles _db.Format
    e.Value = Format(e.Value, "dd.MM.yyyy hh:mm")
End Sub