vb6 adodb recordset count rows