Select Code to Download

  my $conn = Win32::OLE->CreateObject('ADODB.Connection');

...
   $conn->Open(<<EOF);
$DSN
EOF