Runtime-error '-2147024882(8007000e)' Not enough storage available to complete this operation.

I have VB / VB.net application which uses ADO recordsets to fetch data
.. I am getting run-time error while getting rows from the recordset :
"Runtime-error '-2147024882(8007000e)' Not enough storage available to
complete this operation" . Earlier I thought that this is due to MDAC
version . But it is 2.6 and above. So according to microsoft this
problem of component does not exist with version 2.6 or above.
Then I tried for replacing my provider from "MSDAOra" to "OracleOLEDB
provider". It still doesno't help.
Application is running on Oracle 9i client.
Can anybody tell me what can be the exact problem? and can anybody
guide what shall I do in this scenario?
Here s the code:
ublic Function GetTable(iTable As String, Optional iFields As Variant =

"", Optional iConstraint As String = Empty) As Variant
Dim rec As ADODB.Recordset
Dim strSQL As String
Dim I As Integer
If Not mbolLoggedIn Then Err.Raise vbObjectError + glngErr + 1,
"GetTable", "No user is currently logged in"
Call OpenConn
Set rec = New ADODB.Recordset
strSQL = "SELECT "
If IsEmpty(iFields) Or IsNull(iFields) Then
strSQL = strSQL & "*"
ElseIf LCase(TypeName(iFields)) = "variant()" Then
For I = 0 To UBound(iFields)
If I > 0 Then strSQL = strSQL & ","
strSQL = strSQL & iFields(I)
Next I
Else
strSQL = strSQL & iFields
End If
strSQL = strSQL & " FROM " & mstrSchema & "." & iTable & " " &
iConstraint
rec.Open strSQL, mcnnDB
If rec.EOF Then
GetTable = Null
Else
GetTable = rec.GetRows() ---------------------This error crops up here
End If
rec.Close
Set rec = Nothing
Call CloseConn
End Function.


Thanks in Advance,
Shveta

.

Relevant Pages