my ($xsql) = new Win32::ODBC('VER2004R2');
           $xsql->Sql($sql);
           $xsql->FetchRow();
           my (%ahash) = $xsql->DataHash();
           if (($ahash{Status} eq 'Solved') &&
               ($ahash{'Assigned_to'} ne '') && 
               ($ahash{'Resolved_by'} ne '') && 
               ($ahash{'Verified_by'} ne '') ) {
                 $sql = 'INSERT INTO tblBasicProblems_history ( PGNFILENAME, ';
                 $sql .= ' [Date], Description, Author, Status, Assigned_to, Resolution, ';
...
  $xsql->Sql($sql);
...