The VB code you need to execute is:

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

I don't use win32::ole so I'm not sure exactly how you'd do it. My guess would be something like:

$records = $Object->{RS} = ("adodb.Recordset");
$count = $Object->LetProperty("RecordCount", $records);
[download]