Ken, thanks for the quick reply, however
Still the same problem, works fine when there is a date in the field, but when the field contains no data, I get a error
Dim HitD As Date
Form_frmMain.HitDate.SetFocus
HitD = nz(Form_frmMain.HitDate.Text,"")
any advice is much appreciated