set RS = CreateObject("ADODB.Recordset")
set NUM = RS.RecordCount