Thanks, Ajax. Did this:
Code:
Function CreaRegistroLibro(ByVal IdPiscina As Integer, ByVal strReferencia As String, ByVal strFecha As String, ByVal intMeses As Integer) As Integer
'Creates new record and returns its id
Dim strSQL As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
strFecha = Format(strFecha, "mm/dd/yyyy")
strSQL = "INSERT INTO tblLibrosPiscina ( IdPiscina, RefPeticion, FechaPeticion, MesesLibro ) SELECT " & IdPiscina & " AS IdPiscina, '" & strReferencia & "' AS Referencia, #" & strFecha & "# AS FechaPeticion, " & intMeses & " AS MesesLibro"
DBEngine(0)(0).Execute strSQL, dbFailOnError
strSQL = "SELECT Last(tblLibrosPiscina.IdLibroPiscina) AS UltimoDeIdLibroPiscina FROM tblLibrosPiscina"
CreaRegistroLibro = rs!UltimoDeIdLibroPiscina
Set rs = Nothing
Set db = Nothing
End Function
Fine?