I have a monthview control on my form and I want certain days to show up bold using the following code:
Code:
Public Function HighlightCalendar(ByVal strCRNumber As String, strReviewDate As Date)
Dim rsDateList As ADODB.RecordSet
Set rsDateList = New ADODB.RecordSet
Dim strDate As String
Dim strSql As String

strDate = Format(strReviewDate, "MM/DD/YYYY")
strSql = "SELECT Location.Location_Date " & _
         "FROM Master_Review INNER JOIN Location ON Master_Review.ID = Location.ID " & _
         "Where Master_Review.CR_Number = '" & strCRNumber & "' And Master_Review.Review_Date = " & "#" & strDate & "#" & _
         "ORDER BY Location.Location_Date"

With rsDateList
   .Open strSql, conAccess, adOpenStatic, adLockOptimistic
   Do While Not .EOF
      frmMain.monReviewDates.DayBold(.Fields!Location_Date) = True
   Loop
End With
End Function
On the line I've highlighted above though, I get an "Overflow 6" error. What is causing this?