Error 3420

 

I'm getting an error 3420 (The object is not valid anymore) with the following code:

 

        With grdList
            For Each oRec In grdList.Records
                eType = Val(oRec.Item(ID_GRID_TYPE).Value)
                If (eIngType = bbMyType)  Then
                    oRec.Visible = True
                Else
                    oRec.Visible = False
                End If
            Next oRec
   
            .Populate
        End With

 

The line causing the error is:

eType = Val(oRec.Item(ID_GRID_TYPE).Value)

The item object is totally empty (it looks like an ADO field object). I have previously filled all records (and items) by loop through my own ado recordset and setting values.

 

Any ideas?

 

Thanks,

Ivan