#!perl -w
use strict;
use Win32::OLE;

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)};DBQ=I:\garbage\quarterback.mdb;';

# Connect to the database and tie the recordset object to the database
print "Data Source = $db_datasource\n";
$db_connection->open($db_datasource);

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

$rs->Open('SELECT Item_ID, Item_Text, Answer_Text FROM Quarterback',$db_connection, 0, adOpenKeySet);

while ( ! $rs->Eof )
{
   $rs->MoveNext;
} ## end of while (! $rs-Eof )

$rs->close;