[Resolvido]Erro entre versões, 2003 e 2007

Boa tarde

Tenho esta função num modulo

Na versão 2003 faz o "Debug" sem problemas
Na versão 2007 o "Debug" dá erro na parte a vermelho

Private Function E_FeriadoFixo(UmaData As Date) As Boolean
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 ", vbQuestion, "Clínica"
Resume E_FeriadoF_Fim
End Function

Obrigado

Tente trocar as linhas:

rs.Index = "PrimaryKey"
rs.Seek "=", intDia, intMes

para:

rs.FindFirst "CampoDiaDaTabela=" & intDia & " And CampoMesDaTabela=" & intMes & "

Bom dia Assis;

Já esqueceu este seu tópico ?

http://maximoaccess.forumeiros.com/t7422-resolvidodiferenca-em-modulo-2003-2007

Viva JPaulo

Não não esqueci, é que estive aqui a tratar de um caso mais urgente.
Obrigado

Eis o modulo que não dá erro no 2007.

Obrigado

Desmarque a Referencia VBA, Microsoft ActiveX bla bla bla

Obrigado JPaulo