>combo.ControlSource = TBL.date
>combo.Format = D
Here it is:
>combo.InputMask = {99/99/9999}
It should be
combo.InputMask = "99/99/9999"
As it is, VFP is taking the right side for a date (and an impossible one) where it expects a string.
>combo.RowSourceType = Array
>combo.RowSource = adate