Const adCmdStoredProc = 4 
Const adDBTimeStamp = 135 
Const adParamInput = 1 

Set cmd = CreateObject("ADODB.Command")
With cmd 
    .CommandType = adCmdStoredProc 
    .CommandText = "dbo.up_GetLogs" 
    .Parameters.Append .CreateParameter("@TimeThreshold", adDBTimeStamp, adParamInput, , CDate("2008-01-23"))
    .ActiveConnection = CN_STRING 

    ' Eseguo la stored procedure 
    Set rs = .Execute
End With