[Resolvido]Erro 3061 em tempo de execusão

Olá pessoal tenho esse exemplo que mostrar uma mensagem de erro quando tento abrir o formulário frmCalender

Minha intenção e abrir esse formulário com base na consulta csInformacaoCalendario. Nesse consulta tem um filtro no critério do campo idImovel

Detalhe: Se remover o filtro da consulta o formulário abre normalmente.

Public Sub PutInData()
   Dim sql As String
   Dim f As Form
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim mynum
   Dim i As Integer
   Dim MinhaData As Date
                 
   Set f = Forms!frmCalender
   
   For i = 1 To 37
       f("text" & i) = Null
   Next i
   
   sql = "SELECT * FROM [csInformacaoCalendario] WHERE ((MONTH(dataAgendamento) = " & f!month & " AND YEAR(dataAgendamento) = " & f!year & ")) ORDER BY dataAgendamento;"
       
   Set db = CurrentDb()
   Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
   If rs.RecordCount > 0 Then
       For i = 1 To 37
          If IsDate(f("date" & i)) Then
               MinhaData = Format((f("date" & i)), "mm/dd/yyyy")
               rs.FindFirst "dataAgendamento = #" & MinhaData & "#"

               If Not rs.NoMatch Then
                   f("text" & i) = rs!campo
           End If
           End If
       Next i
   End If
 End Sub


Exemplo:

Olá Gilberlânio,

Segue versão com os devidos ajustes.
Está funcionando.

Espero ter ajudado

Boa sorte.

Att,

Alexandre Fim

Mais uma vez muito obrigado Alexandre, era isso mesmo. Ficou 100%