use strict;
use warnings;
use Win32::OLE;

# The next two lines would need to be tweaked
# Off the top of my head, I think DAO 3.6 (or 4.0?)is for Access 2000
# Look in HKEY_CLASSES_ROOT for DAO for the actual numbers

use Win32::OLE::Const 'Microsoft DAO 3.51 Object Library';
my $acc = Win32::OLE->new("DAO.DBEngine.35", 'quit');

my $db = $acc->CreateDatabase('new.mdb', dbLangGeneral);

my $tab = $db->CreateTableDef('MyDAOTable');
my $fld = $tab->CreateField('ID', dbInteger);
$tab->Fields->Append($fld);
$fld = $tab->CreateField('Desc', dbText);
$tab->Fields->Append($fld);
$db->TableDefs->Append($tab);
$db->TableDefs->Refresh;