Select Code to Download

Set RS = Server.CreateObject("ADODB.RecordSet")
RS.CursorLocation = adUseClient
RS.Open table_name_or_sql_query, your_connection_object, adOpenKeyset

use constant adUseClient => 3;
use constant adOpenKeyset => 1;

use Win32::OLE;
use strict;
...
$rs->CursorLocation(adUseClient);

$rs->Open('test', $db_connection, adOpenKeySet);