findfirst help

[keri]

I have a calendar that currently shows the name of a customer in the
correct date. However it does not show multiple appointments on the
same day. I have worked out why it does this, but i am not sure how to
change it. (I have tried quite a few things to no avail).

The current code uses "findfirst" to select from a query the first
appointment on the correct date.

If IsDate(f("date" & i)) Then
myDate = Format((f("date" & i)), "mm/dd/yyyy")
rs.FindFirst "appdate = #" & myDate & "#"

where ;
Dim sql As String
Dim f As Form
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer
Dim myDate As Date
sql = "SELECT * FROM [querycalendar] WHERE ((MONTH(appdate) = " &
f!month & " AND YEAR(appdate)= " & f!year & ")) ORDER BY appdate;"

If anyone could let me know where i should start to change this code I
would be very pleased!