$rs->RecordCount. my $rs = Win32::OLE->new('ADODB.Recordset');
$rs->Open("Select * from $SQLTABLE", $conn);
if ($rs->RecordCount > 0) {...}