Alright, this is really bending my brain. I have the following code:

            my $crconn = Win32::OLE->new('ADODB.Connection');
            my $crrs = Win32::OLE->new('ADODB.Recordset');

            $crconn->open("Credentialing");

        my $lastname = $rs->Fields("LastName")->{'Value'};
        $lastname =~ m/^\b([A-Za-z]+)\b(.*)$/gi if ($lastname);
        my $rsID = $rs->Fields("ID")->{'Value'};
        my $sql = "SELECT * FROM [PHYSICIAN TABLE] WHERE ";
                $sql .= "[PHYSICIAN TABLE]\.[LAST NAME] LIKE \'\*$1\*\
+';";
        print SQLLOG $sql, "\n";

        $crrs = $crconn->execute($sql);
        print LOGFILE "Foo!\n Win32::OLE->LastError()\n" if (Win32::OL
+E->LastError());
        
        if ($crrs->eof) {
            # start matching based on the last name
            # now would be a good time to use the misspelling module f
+rom CPAN
            # this will be done at a later time

            $finalmatch{$rsID} = "No Match By Last Name";

        }
[download]

whose sole purpose is to take the last name from the first recordset $rs and grab the first
'wordish' chunk and build a SQL statement around said chunk and query an Access database for any matches.
if it doesn't find a match, then it throws the ID field from $rs into a hash, with the appropriate message.

Now, I have the SQL print out to a file, and when I physically test the queries right in Access, they return values,
here in the program, it doesn't seem to return any values. Is this a problem with my code? Or should I look elsewhere?


Thanks in advance,
Maurice