3061 error (MS/ACCESS) on "Set ...."

    Dim zenvioSMSSet As Recordset
    Dim zenvioSMSSetProvisorio As Recordset
    Dim q01_selectUsers2smsSet As Recordset
    Dim zcontrolTableSet As Recordset
    Dim mboDB As DAO.Database
    
    Dim nDias As Integer
    Dim nDiasAdicionais As Integer
    Dim nDiaSemana As Integer
    Dim nMsg As Integer
    Dim strMsgText As String
    Dim strMsgTextClean As String
    Dim nidEnvio As Integer
    Dim strSendUserID As String
    
    Dim blnYesDay
    
On Error GoTo errorTrap
        
    Call logMe("frm_preparaEnvia btn_prepararSMS_Click", "start")
    Me.Refresh
    strSendUserID = Nz(Forms!frm_loggedUserData!CurrentUserID, "") ' quem envia a mensagem
    If strSendUserID = "" Then
        MsgBox "[frm_preparaEnvia btn_prepararSMS_Click errorTrap]." & _
                "[user name].[NULO]"
        Call logMe("frm_preparaEnvia btn_prepararSMS_Click errorTrap", _
                    "[Form_Open_F00_Boot]." & "[user name].[NULO]")
        Exit Sub
    End If
    Set mboDB = CurrentDb
    Set zenvioSMSSet = mboDB.OpenRecordset("zenvioSMS", dbOpenDynaset)
    Set zenvioSMSProvisorioSet = mboDB.OpenRecordset("zenvioSMSProvisorio", dbOpenDynaset)
    Set q01_selectUsers2smsSet = mboDB.OpenRecordset("q01_selectUsers2sms_p02", dbOpenDynaset)
    Set zcontrolTableSet = mboDB.OpenRecordset("zcontrolTable", dbOpenDynaset)
    zcontrolTableSet.MoveFirst
    nDiasAdicionais = zcontrolTableSet!T00_numDiasMsg

Select allOpen in new window