VB6SP6+WinXPで開発しております。
以下のコードのようにDataGridのハイライト表示を行おうと思ってます。
たとえば、１４８行のデータがDataGridに表示されているとします。
１スクロールで表示できる行数が１６行にデザインとなっております。
スクロールを最下位にして、最終行（新規入力行:
rs.MoveLastして、DataGrid1.Row = DataGrid1.Row + 1にあたるデータの無い行）にカーソルをあてた後、表示されているスクロール内で、別の行をクリックしたとき、
DataGrid1.SelBookmarks.Remove 0
で、以下のメッセージボックスが表示されます。
-----------------------------------
実行時エラー'7001'が発生します。
予期しない場所から不明なエラーコードが発生しました
-----------------------------------
どのような理由で発生するのでしょうか？
また、回避方法あれば、教えていただけますでしょうか？
Dim rs As New ADODB.Recordset
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim lRow As Long
While (DataGrid1.SelBookmarks.Count <> 0)
DataGrid1.SelBookmarks.Remove 0
Wend
DataGrid1.SelBookmarks.Add rs.Bookmark
End Sub