I want a list of all the table names in the MS Access mdb file. i use the following code

use Win32::ODBC;
$DSN = "DRIVER=Microsoft Access Driver (*.mdb);FIL=MSAccess;DriverId=2
+;DBQ=1-AOGCapPlan.mdb";

$db=new Win32::ODBC($DSN);    

$db->Sql("SELECT Name FROM MSysObjects");

while ($db->FetchRow()) {
    my %data = $db->DataHash();
    foreach( keys %data ) { print "\n$_ => $data{$_}" ; }
    push @rows, {%data};
}


$db->Close();
[download]

The query "SELECT Name FROM MSysObjects" works fine in the mdb file queries. why this does not work in the code above ?

20070813 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips