İlk açılan formun, açılıştaki kod buloğuna,
If [Tarih]=Date() then
msgbox"Beklediğimiz tarih geldi"
else
exit sub
End If