use strict; use Win32::OLE; my $provider = 'Microsoft.Jet.OLEDB.4.0'; my $dir = 'c:\perl\cgi-bin'; my $dbase = 'mydb.mdb'; my $user = ''; #use if needed my $password = ''; #use if needed my $connStr = "Provider=$provider;Data Source=$dir\\$dbase;User ID=$user;Password=$password;"; my $conn = Win32::OLE->new('ADODB.Connection') or die("Could not create Connection: $!"); $conn->Open($connStr);