Maybe like this:
VB Code:
  1. Dim bndTemp As Binding
  2. bndTemp = New Binding("Text", DsCustomersDB1, ctype("tblCustomers.fldCustPFCDate",date).ToShortDateString)
  3.                    
  4. txtCustPFC.DataBindings.Add(bndTemp)