my $dbh; 

$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;

$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=db/textbookhub.mdb");

my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset"; 

my $sqlstatement = "SELECT username, sessionID FROM user WHERE id=$id";  # Prepare and execute SQL statement

$rs = $dbh->Execute($sqlstatement);