error en Recordset

[andresorland]

Buenas tardes

gracias ante todo
es mi primer pregunta.

vba en Acces 2007

Intento crear una fucion con un recorset pero me presenta un error.

Se ha producido el error 3061 en tiempo de ejecucion.

pocos parametros se esperaba 1

este es el codigo de la funcion

Function TraerParametro(ByVal Ipara As String) As String

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("SELECT Parametros.Entidad, Parametros.Parametro, Parametros.TxtParametro FROM Parametros WHERE (((Parametros.Entidad)=Nit()) AND ((Parametros.Parametro)= " & Ipara & "))")


If Not rs.EOF Then
TraerParametro = rs!txtparametro
Else
TraerParametro = Null
End If
End Function


la ejecuto desde un btn con el codigo


MsgBox TraerParametro("jeferh1")

Bueno en lo que he buscado creo que es algo en la estructura de la consulta para el recordset pero no logro entenderlo.

Gracias.