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

  # Open a connection using the SQL Server OLE DB Provider
  LogIt( $fhDEBUG, "Opening ADODB connection") if $CONFIG{DEBUG} > 3;

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