use strict;
use Win32::OLE;

my $uid = 'myUID';
my $pwd = 'myPwd';
my $dsn = 'myDSN';

my $conn = new Win32::OLE ('ADODB.Connection');

$conn->Open("DSN=$dsn;UID=$uid;PWD=$pwd;") 
	or die "Cannot connect : " . Win32::OLE::LastError();

$conn->Close;

##</code><code>##

Cannot connect : 0 at adodb.pl line 12