my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset";
$rs->open($sqlstatement, $dbh, 3, 3);

##</code><code>##

use strict;
use OLE;
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=\_private\db1.mdb");
my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset";

my $sqlstatement="SELECT email,password FROM surya";
    $rs->open($sqlstatement, $dbh, 3, 3);
    
    while (!$rs->EOF()) {
    print $rs->Fields('email')->Value . " " . $rs->Fields('password')->Value . "\n";
    $rs->MoveNext;
    }