Hola
creo que el error era en armar la consulta en el mismo recordset,
Lo soluione con un string pra el query ... pego el codigo
Cita:
Function TraerParametro(ByVal Ipara As String) As String
Dim db As Database
Dim rs As Recordset
Dim sSql As String
sSql = "SELECT Parametros.Entidad, Parametros.Parametro, Parametros.TxtParametro FROM Parametros WHERE (((Parametros.Entidad)='" & Nit() & "') AND ((Parametros.Parametro)='" & Ipara & "'))"
Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset(sSql)
If Not rs.EOF Then
TraerParametro = rs!txtparametro
Else
TraerParametro = Null
End If
End Function
Gracias.