Below are my code and i m still getting the error:
Run time error ‘3021’;
Either BOF or EOF is True, or the current record has been deleted; the
operation requested by the application requires a current record
oRsPage.AddNew For iColumnIndex = 0 To .Fields.Count - 1 oRsPage.Fields(iColumnIndex).Value = .Fields(iColumnIndex).Value Next oRsPage.Update .MoveNext Loop End If End With Set oRs = Nothing 'get the number of rows in the query Set oRs = New ADODB.Recordset With oRs .Open SQL_COUNT, goConn, adOpenForwardOnly, adLockReadOnly If Not oRs.EOF Then Rows = Field2Long(.Fields(0).Value) End With Set mvarResult = oRsPage GetPagedRecordset = True exitPoint: 'clean up On Error Resume Next oRs.Close Set oRs = Nothing Set oRsPage = Nothing Exit Function
Please give me a solution
Edited 6 Years Ago by __avd: Added [code] tags. Encase your code in: [code] and [/code] tags.