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


##</code><code>##

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


##</code><code>##

use Win32::OLE;
use strict;

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


my $db_connection = new Win32::OLE('ADODB.Connection');
my $rs = new Win32::OLE("ADODB.Recordset");


my $db_datasource = 'Driver={Microsoft Access Driver (*.mdb)};
+';
# My database is called test.mdb and is in the same dir.
$db_datasource .= 'DBQ=test.mdb';
# Connect to the database and tie the recordset object to 
# the database.
$db_connection->Open($db_datasource);


# Set the connection doohickey
$rs->CursorLocation(adUseClient);

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