my $conn = new Win32::OLE ('ADODB.Connection')
    or die "Cannot connect : " . Win32::OLE::LastError();

$conn->Open("DSN=$dsn;UID=$uid;PWD=$pwd;");