Sentencia SQL en VB 6

Buen día, tengo la siguiente sentencia sql al ejecutarla en access funciona muy bien:

SELECT * FROM tblEmpleadoHojaVida 
WHERE (365-(DateDiff("d",FechaIni,now()))=31);

Al realizarlo en vb 6 no funciona la sentencia:

[Dim strMsj As String, rsTemp As ADODB.Recordset, inte As Integer
    strMsj = "SELECT *"
    strMsj = strMsj & " From tblEmpleadoHojaVida"
    strMsj = strMsj & " WHERE  (365-(DateDiff('d',FechaIni,Date())))=31"
    Set rsTemp = ConectarRS(cnPpalGeneral, strMotorActual, adCmdText, strMsj, adUseClient, adOpenForwardOnly)
 inte = rsTemp.RecordCount