Reply to myself :)
Might as well add this, what to do after you connect...

my $sth = $dbh->prepare("SELECT email, password FROM surya");
$sth->execute;
my $aref = $sth->fetchall_arrayref;
$sth->finish;

print "Email\tPassword\n";
for my $row (@$aref) {
  print join("\t",@$row) . "\n";
}
[download]

That would seem to emulate the rest of the functionality of your code except it doesn't output in HTML, have a look at something like HTML::Template for that.

To Whom It May Concern. I have tried to use Perl DBI and MS Access together for 2 weeks. But even though I programmed the same code as the code is shown above, it keep telling error message: CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are: DBI->connect(driver={Microsoft Access Driver (*.mdb)};DBQ=2000ticket) failed: MicrosoftODBC Driver Manager Invalid string or buffer length (SQL-S1090)(DBD: db_login/SQLConnect err=-1) at d:\inetpub\scripts\find_ticket_test.pl line 19 I really do not know what to do. Please answer my question. thank you

use strict;
use OLE;

my $dbh;

$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connec
+tion to DataBase: $!" unless $dbh;
$dbh->Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\_private\\
+db1.mdb");

my $sql = "SELECT email, password FROM surya";

    my $rs = $dbh->Execute($sql);

    while (!$rs->EOF()) {
    print $rs->Fields('email')->Value . " " . $rs->Fields('password')-
+>Value . "\n";
    $rs->MoveNext;
    }

$dbh->Close();
[download]

$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=\\_private\\d
+b1.mdb");
[download]