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

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

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

   #

   my $sql =<<SQL;
   SELECT $cols
   FROM   $table
   WHERE  $criteria
SQL


   map { LogIt( $fhDEBUG, $_ )} split /\n/, $sql  if $CONFIG{DEBUG} > 3;
   my $rs = $conn->Execute($sql);
   LogIt( $fhDEBUG, "COMPLETE: executing SQL") if $CONFIG{DEBUG} > 3;

   if( !defined( $rs ) ){
      LogIt( $fhDEBUG,"something went wrong: ", Win32::OLE->LastError());
      LogIt( $fhERROR, "something went wrong: ", Win32::OLE->LastError());
      die "<lookup> died something went wrong: ", Win32::OLE->LastError(),"\n";
   }
  

##</code><code>##

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