$RS   = Win32::OLE->new("ADODB.Recordset");
$RS->Open($sql, $Conn, 1, 1);
return $RS

##</code><code>##

$RS   = Win32::OLE->new("ADODB.Recordset");
$RS->Open($sql, $Conn, 1, 1);