Run-time error 40088, 40008

[ganeshmoorthy]

if you change it to cn.EstablishConnection rdDriverPrompt and select the driver manually, do you get any errors...

Dim rs, rs1 As rdoResultset

And you need to change the declaration as in VB you should specify the data type for each variable, so, it should be

Dim rs As rdoResultset, rs1 As rdoResultset

[EliW]

I had something like this happen today. I suddenly started receiving the "No Open Cursor or Cursor Closed" when I tested .EOF after opening a recordset on a stored procedure I was working on.

In my case, the cause was, I had changed the stored procedure so that it sometimes returned no recordset. Not an EMPTY recordset...no recordset at all. You should re-visit your JP_FIND_STRING stored proc and carefully inspect it to see if there is any way it might exit without returning the results of a SELECT statement. One common way this could happen is if your stored proc has the ability to exit early with just a return code, maybe?

My stored proc, for example, generates a .CSV file, and I wanted to include a header row in the file...but I didn't want it to return just the header row if there were no result records, so at first I did this:

IF 1 < (SELECT COUNT(1) FROM @tResults)
SELECT CombinedLine
FROM @tResults
ORDER BY ResultID

This caused the error message to start appearing whenever there were no results, until I changed it to this:

SELECT CombinedLine
FROM @tResults
WHERE 1 < (SELECT COUNT(1) FROM @tResults)
ORDER BY ResultID

which returns an empty recordset, instead of a nonexistent one, if @tResults contains 1 row or less.