sub conn {
    my $dbistring;
    # $dbistring = 'dbi:ADO:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';  # 32bit
    # $dbistring = 'dbi:ADO:Provider=Microsoft.ACE.OLEDB.12.0;Data Source='; # 64bit
    $dbistring = 'dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=';
    my $dbh = DBI->connect($dbistring . shift) or die "C ", $DBI::errstr;
    return $dbh;
}

##</code><code>##

use DBI;
use Path::Tiny 'path';
...
my $dbname = path '//server/share/whatever/it is.mdb';
$dbh = conn $dbname->canonpath;
...