Select Code to Download

   LogIt( $fhDEBUG, "Opening ADODB connection") if $CONFIG{DEBUG} > 3;

...
      die "<lookup> died something went wrong: ", Win32::OLE->LastErro
+r(),"\n";
   }

     if($conn->{State} == adStateOpen) {
     $status = "Connection was a success";
     }
...
     $status .= $conn->Errors(0)->{Description};
     }