Подскажите, если не затруднит

я хочу выделить текущую строку

dim adoRS as recordset
set adoRS=New recordset
set datagrid.datasourse=adoRS

Private Sub adoRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
DataGrid.SelBookmarks.Remove (0)
DataGrid1.SelBookmarks.Add (adoRS.AbsolutePosition)

почти работает, но если
adoRS.filter="field1>0"
Me.DataGrid1.SelBookmarks.Add (adoRS.AbsolutePosition), то выделяется не та строка

как поступить?

ладно, заработало
правильно
Me.DataGrid1.SelBookmarks.Add (adoRS.Bookmark), прошу прощенья