Access - Function o Variable

Hola

He declarado la siguiente funcion para utilizarla en un informe, pero no consigo que funcione y no se porque...

Public Function MesesContratos(CDni As String) As Variant
On Error Resume Next

Dim strSql As String, _
indefs As Integer, _
Duracion As Integer

'Aqui veo si hay algun contrato que sea indefinido para esta persona
strSql = "Select Count(*) From Contratos j Where j.TipoContrato = 'indef' AND j.DNI = '" & CDni & "'"

indefs = CurrentDb.Execute(strSql)

If indefs <> 0 Then
MesesContratos = "indef"
Else
strSql = "Select Sum(Duracion) From Contratos v Where v.DNI = '" & CDni & "'"
Duracion = CurrentDb.Execute(strSql)
MesesContratos = Duracion
End If

End Function

El error que me sale es el siguiente: " Error de Compilación Se esperaba Function o una variable"

En el informe la llamo de la siguiente manera: Origen de Control: =MesesContratos([Nif])

Gracias

es curioso a mi tampoco me reconoce el sub Execute a pesar de que al parecer es DAO y revise la referencia dao encontrando todo ok

y la documentacion me tira a una ventana vacia )=<

Hola ....

Al final encontre la solucion con la ayuda de unos amiguetes

Dim strSql As String, _
indefs As Integer, _
Duracion As Integer, _
rs As Recordset

'Aqui veo si hay algun contrato que sea indefinido para esta persona
strSql = "Select Count(*) as num From Contratos j Where j.TipoContrato = 'indef' AND j.DNI = '" & CDni & "'"

'Execute la select i la volque en un recordset i despres de este trac el resultat que vullc
Set rs = CurrentDb.OpenRecordset(strSql, dbOpenForwardOnly)
indefs = CInt(rs!num)

EN la variable indefs se me queda el valor que devuelve la select.... Espero que os sea de utilidad...