vbscript adodb recordset count