Access - PROBLEMA RECORSET

Buenos días y gracias de nuevo, pq lo poco que sé de Access lo debo en parte a este foro. Despues de los agradecimientos a ver si alguien me puede ayudar. No entiendo porque el siguiente código para que me avise de las inspecciones que estan vencidas me devuelve siempre un 1 en lugar de los 38 elementos que consigo con una consulta directamente en vista de diseño.

Private Sub Form_Open(Cancel As Integer)

Dim sql As String
Dim FechaDia
FechaDia = Date

sql = "SELECT * FROM [Datos] WHERE ([Datos].[FechaPC] <#" & Format(FechaDia, "mm/dd/yyyy") & "#)"


Dim DB As Database
Set DB = CurrentDb()
Dim InspCaducadas As Recordset
Set InspCaducadas = DB.OpenRecordset(sql)

If InspCaducadas.RecordCount > 0 Then

MsgBox "HAY " & InspCaducadas.RecordCount & " INSPECCIONES CADUCADAS. HAY QUE EJECUTAR EL GENERADOR DE CARTAS", vbInformation, "INSPECCIONES CADUCADAS"

End If

InspCaducadas.Close

End Sub

If InspCaducadas.RecordCount > 0 Then
InspCaducadas.MoveLast 'Se va al ultimo registro

MsgBox "HAY " & InspCaducadas.RecordCount & " INSPECCIONES CADUCADAS. HAY QUE EJECUTAR EL GENERADOR DE CARTAS", vbInformation, "INSPECCIONES CADUCADAS"

InspCaducadas.MoveFirst 'Regresa al primer registro
End If

Gracias Enrique ya me podía volver loco yo, estaba equivocado pq creía que la propiedad Recordcount me devolvía el valor total de filas y no el índice al que apunta en ese momento. Lo dicho muchas gracias.