Reminders

[naiveprogrammer]

I have a db that is set to remind the user to view certain records. I have
the query in the form_load in a switchboard. This all works very well except
now.... the user needs to view records based on different criteria's. Now she
wants reminders like these for every record-

Remind every week for the first 30 days
After the 1st 30 days then Remind at 60 days
After 60 days Remind at 90 days.


I have NO idea where to start with this. ANY help would very much welcomed.
THANKS!

Here is my current code.

***CODE***
Private Sub Form_Load()

Dim intStore As Integer

intStore = DCount("[AppNumber]", "[tblJobs]", "[ExpectedCompletionDate]
<=Now()-90 AND [Complete] =0")


If intStore = 0 Then
Exit Sub
Else


If MsgBox("There Are " & intStore & " Names To Review." & _
vbCrLf & vbCrLf & "Would you like to see these now?" _
, vbQuestion + vbYesNo, "You Have Names To Review...
") = vbYes Then
DoCmd.Minimize
DoCmd.OpenForm "frmRemind", acNormal

Else
If vbNo Then
DoCmd.Quit
Exit Sub

End If
Exit Sub
End If
End If

End Sub
***END CODE***