"No data at execution values pending" Error

[Guest]

Hello:

We maintain a custom MS Access VBA app which connects to an Oracle 9.2
database. App has worked fine, but when installing XP/SP2, now getting error
in subject line when querying to a stored procedure in Oracle via Access VBA
code. Could anyone please help?

This error occurs only on one particular pl/sql call (vba code below) and
seems to have started only once Windows XP SP2 was installed.

Has anyone encountered this? Thank you in advance for any help you can offer.


Code is below:
------------------------------------------------

Private Function ExecuteLocalSearch(conn As ADODB.Connection, strSQL As
String) As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim rst As ADODB.Recordset
Dim searchID As Long

On Error GoTo myerror

cmd.ActiveConnection = conn

' For local searches, we use a stored procedure to record searches and their
result.
Set rst = RunSPReturnRS(cmd, "search_pkg", "RunGrantSearch", False, _
MakeParameter("username", adVarChar, 15, GetUserName), _
MakeParameter("query_text", adVarChar, 4000, strSQL))

Set cmd = Nothing
Set ExecuteLocalSearch = rst
Exit Function



Public Function RunSPReturnRS(cmd As ADODB.Command, strPackage As String, _
strinspname As String, ByVal blnDisconnect As Boolean, _
ParamArray params() As Variant) As ADODB.Recordset

Dim rs As New ADODB.Recordset

cmd.CommandText = SchemaName & strPackage & "." & strinspname
cmd.CommandType = adCmdStoredProc

collectParams cmd, params

' Add parameter for output error code
cmd.Parameters.Append cmd.CreateParameter(, adVarChar, adParamOutput, 10)

' Execute the query for readonly
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenForwardOnly, adLockReadOnly


' Disconnect the adodb.recordset
If blnDisconnect Then
Set rs.ActiveConnection = Nothing
End If

' Return the resultant adodb.recordset
Set RunSPReturnRS = rs
End Function



thank you.