Private Sub Command4_Click()
Dim BookMark As String
Dim lngI As Long
For lngI = 0 To DataGrid1.SelBookmarks.count - 1
DataGrid1.SelBookmarks.Remove lngI
Next lngI
BookMark = InputBox("Please input a number!")
'判断输入值的正确没有写。
DataGrid1.SelBookmarks.Add CLng(BookMark)
End Sub