Select Code to Download

use strict;
use OLE;
...
    }

$dbh->Close();

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