RuralGuy, Thanks for your help. I have managed to transfer the current date to the Form_Open procedure below but it is still not finding the record.
Private Sub Command0_Click()
DoCmd.OpenForm "Form2", acNormal, , , acReadOnly, , Date
End Sub
Private Sub Form_Open(Cancel As Integer)...