Dirk,

First, I keep saying form when in fact it is a report...  Regardless, the
code worked for the 11th, 18th and 25th but nothing showed for the 4th?
Okay so it's not the offending line I thought it was.  What I see know is
all my single digit days are showing me nothing.

Query shows days as "04"...

Just to keep all the code together...

Function FillCdays()
On Error Resume Next
Dim irow As Integer
Dim icol As Integer
        Dim tuseday As String
        Dim tcheckday As String
Dim ans As String
Dim db As DAO.Database
Dim qd As QueryDef
Set db = CurrentDb()
Dim rs As DAO.Recordset
Set qd = db.QueryDefs("qryFillCDays")
qd!FindMonth = Format([scrCDate], "mm")
qd!FindYear = Me.txtYear
Set rs = qd.OpenRecordset()
Dim Done As Integer
Done = 0
If rs.EOF And rs.BOF Then
  Else
  Do Until rs.EOF
  If Trim(rs!NameActivity & "") = "" Then
    Else
    ans = ""
    For irow = 1 To 6
      For icol = 0 To 9
        tuseday = rs!Day
        tcheckday = Trim(Left(Me("lbl" & irow & icol), 2))
        If tcheckday = tuseday Then
                Me("lbl" & irow & icol) = Me("lbl" & irow & icol) & vbCrLf
& rs!NameActivity
                Me("lbl" & irow & icol).FontWeight = 500
        End If
        If Done = 1 Then Exit For
      Next icol
       If Done = 1 Then Exit For
     Next irow
   End If

   rs.MoveNext
   Done = 0
 Loop
End If
rs.Close
End Function

Sub RefDates()
'Adapted from code by Joshua Painter whom I can't find

   Dim D1 As Variant, D2 As Integer, D3 As Integer

   Me.txtMonth = Format(Me![scrCDate], "mmmm")   'Sets the Month
   Me.txtYear = Format(Me![scrCDate], "yyyy")    'Sets the Year

   D1 = DateSerial(Year(Me![scrCDate]), Month(Me![scrCDate]), 1)  'Sets the
first day of the month
   D2 = DatePart("w", D1, vbSunday)    'Sets the first day of the week
   Do Until DatePart("w", D1, vbSunday) = 1    'Starts the calendar on the
first day of the week designated
       D1 = DateAdd("d", -1, D1)
   Loop
   Me![scr1Date] = D1
   D3 = 1
   Do Until D3 > 42    'Goes thru all the calendar days setting the dates
       Me("lbl" & Format(D3, "00")) = Day(D1) 'Starts the calendar days

   'If Month(D1) <> Month(Me![scrCDate]) Then  <--- I remmed out, will
adjust whe I get it working.
       'Me("lbl" & Format(D3, "00")).Visible = False
   'Else
       'Me("lbl" & Format(D3, "00")).ForeColor = 0
       'Me("lbl" & Format(D3, "00")).Visible = True
   'End If

   D3 = D3 + 1
   D1 = DateAdd("d", 1, D1)
   Loop
End Sub