Help with Loop

[keri]

This is the code I have;
'Populate the calendar
For i = 1 To 37
If IsDate(f("date" & i)) Then
myDate = Format((f("date" & i)), "mm/dd/yyyy")
rs.FindFirst ("appdate = #" & myDate & "#")
If rs.NoMatch Then
f("text" & i).BackColor = 10944511
Else
f("text" & i) = "~ " & rs!ACCOUNTNAME & " " & rs!Outer & " " & rs!Inner
& " " & rs!apptime
f("text" & i).BackColor = 12058551
Do Until rs.NoMatch
rs.FindNext ("appdate = #" & myDate & "#")
f("text" & i) = f("text" & i) & "~ " & rs!ACCOUNTNAME & " " & rs!Outer
& " " & rs!Inner & " " & rs!apptime
f("text" & i).BackColor = 12058551
Loop
If rs.NoMatch Then
f("text" & i).BackColor = 10944511
End If
End If
End If
Next i

End Sub

I know it is a mess but I have been trying to get this to work for
ages! Basically the code populates a calendar form (with fields for
each day) with appointments for each day.

However I have a problem with my loop I think as it is repeating the
last appointment for each day. For example if there are 3 appointments
for the 10th it is showing 4, (the last one is shown twice). I have not
worked with loops before so don't know what i have done wrong.

As an addition the code line f("text" & i).BackColor = 12058551
is not working - the field colour is not changing if there are
appointments.