[Resolvido]Diferença em módulo 2003 - 2007

Boa noite
Tenho este modulo, na versão 2003 sem problemas mas na versão 2007 ao fazer "DEBUG" da erro no vermelho
Obrigado

Private Function E_FeriadoFixo(UmaData As Date) As Boolean
' Identifica feriados fixos. Abre tabela de feriados,
' e verifica se a data calculada esta' la'
' Autor: Carlos Machado, agosto/1998

On Error GoTo E_FeriadoF_Err

Dim intDia As Integer
Dim intMes As Integer
Dim db As Database
Dim rs As Recordset

intDia = Day(UmaData)
intMes = Month(UmaData)

Set db = CurrentDb
Set rs = db.OpenRecordset("tabFeriadosFixos", dbOpenTable)
rs.Index = "PrimaryKey"
rs.Seek "=", intDia, intMes
If rs.NoMatch Then
E_FeriadoFixo = False
Else
E_FeriadoFixo = True
End If

rs.Close

E_FeriadoF_Fim:
Exit Function
E_FeriadoF_Err:
MsgBox " Ok ", vbExclamation, "Aviso"
Resume E_FeriadoF_Fim
End Function

Olá! Tente usar FindFirst no lugar de Seek.

Bom dia Criquio

Depois da erro no FindFirst



Se eu abrir a BD na versão 2003, no Office 2007 e fizer o Debug não dá erro.

Se Converter a BD para a versão 2007 dá erro ao fazer o Debug:

E qual é a mensagem que aparece? Já verificou as referências? Talvez tenha alguma AUSENTE ou talvez precise mudar a versão de alguma.

Criquio
Deve ser então um areferencia mas não sei ver qual é
Obrigado

Assis

Experimente retirar o Microsoft ActiveX Data Objects 2.1 library da referência e teste.

Abraços

Obrigado
Balem

Nada, irmão

Boa sorte!!