Visual Basic - tengo un problema con esta instruccion

Lo tengo en una funcion de un reporte y antes de mandar cerrar el reporte pongo esta instrccion donde me tiene que indicar que tengo a un asesor con ese nombre pero mi problema es con el recordcount no se hacer la declaracion.

MyRSet.RecordCount = "SELECT [Prestamos Personales].Folio, [Prestamos Personales].Serie, [Prestamos Personales].IdSucursal FROM [Prestamos Personales] WHERE DateDiff(d, [Fecha de Vencimiento], Getdate()) < 60 AND Asesor = 'Gestor' OR DateDiff(d, [Fecha de Vencimiento], Getdate()) < 90 AND Asesor = 'Legal'"
MsgBox "No se puede cerrar"

Alejandro,
El recordcount retorna el numero de records devuelto por una consulta ...
por Ejemplo:
Dim strSQL as string
strSQL = "SELECT [Prestamos Personales].Folio, [Prestamos Personales].Serie, [Prestamos Personales].IdSucursal FROM [Prestamos Personales] WHERE BLAH BLAH BLAH"
MyRSet.Open strSQL, tuconnexion,adOpenKeyset, adLockOptimistic, adCmdText
msgbox "La Consulta ha retornado: " & MyRSt.recordcount " Registro(s)"

Suerte...