# Create the MS Access DSN 
	my $dsncontents = <<"EODSN";
[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=MS Access
DriverId=25
DefaultDir=$datadir
DBQ=$file
EODSN

open(DSN, ">$datadir/Report.dsn") or die "Couldn't create new DSN!\n";
print DSN $dsncontents;
close(DSN);	
	
$accessdsn = "FILEDSN=$datadir/Report.dsn";