Select Code to Download

use DBI;
my $datasource = "driver=Microsoft Access Driver (*.mdb);dbq=new.mdb";
my $username = 'admin';
...

my $sth = $dbh->prepare($sql);
$sth->execute;

use strict;
use warnings;
use Win32::OLE;
...
$table->Columns->Append('ID', adInteger);
$table->Columns->Append('Desc', adVarChar);
$cat->Tables->Append($table);

use strict;
use warnings;
use Win32::OLE;
...
$tab->Fields->Append($fld);
$db->TableDefs->Append($tab);
$db->TableDefs->Refresh;