Run-time error 3021 retrieving bookmark from listview object in Visual Basic 6 compiled program.

I am using Visual Basic 6 (SP6) on Microsoft Windows 98 2nd Edition with Microsoft DAO 3.6 Object Library.
Inside the source I open a recordset in dynaset mode and assign it to a global variable:
   '
   Global gRsPage as Recordset
   Set gRsPage = gDb.OpenRecordset(strSQL, dbOpenDynaset)
   '
Then I show all records by a ListView Object, assigning at each row a single record data:
   '
   lngRow = 0
   '
   While Not gRsPage.EOF
      lngRow = lngRow +1
      lvwPage.ListItems.Add lngRow, , gRsPage(0)      'Numeric data, ie '93999393'
      '
      lvwPage.ListItems(lngRow).Tag = gRsPage.Bookmark
      '
      gRsPage.MoveNext
   Wend
   '
When the operator click on a ListView row, inside the ItemClick event I get the selected record and show the other record fields:
   '
   Private Sub lvwPage_ItemClick(ByVal Item as MSComctlLib.ListItem)
      '
      If Len(Item.Tag) > 0 Then              
         gRsPage.BookMark = Item.Tag
         '
         *** ShowAllData(gRsPage(1), gRsPage(2), etc.) routine ***
         '
      End If
      '
   End Sub
   '
By Visual Basic IDE interface all run OK but:
   1. when I use the COMPILED program (.EXE);
   2. when, on the first time, I click on the SECOND listview row (the first listview row is selected automatically);
   3. the "Run-time error '3021'. No currend record.' appears when the "gRsPage.BookMark = Item.Tag" instruction is executed.

This error never is shown:
   1. on interpreted version (by IDE);
   2. on listview contains alfanumeric data  ("Mr. Smith") and not only numeric data ("93999393");
   3. clicking on listview rows different from the second (first, third, etc).Start Free Trial