vb中datagrid问题

我有个问题想请教大家，很着急！
我在datagird的click事件中设置选中datagrid某行后timer控件激活，定义一个ActiveRow As Integer来记录所选行，ActiveRow=DataGrid.Row，用select case语句使不同行有不同的响应，现在的问题是，datagrid如果下拉的话所选的行好像就不能用DATAGRID.ROW来代表，比如我的datagrid下拉到一半再选中第三行，实际的DataGrid.Row的值只是从最上面开始第三行的值，请问各位应该怎么办？
下面附一下代码 谢谢各位！
Private Sub DataGrid1_Click()
Dim ActiveRow As Integer
ActiveRow = DataGrid1.Row
Select Case ActiveRow
  Case 0
  Picture3(0).Visible = True
  Picture3(1).Visible = False
  Image2.Left = 340
  Image2.Top = 81
  Timer1.Enabled = True
  ActiveRow = 0
省略一部分CASE
end select
end sub

DataGrid.Row是显示区域的第几行，与整个记录无关。
你可以从数据源adodc或adodb的当前记录中获得你想要的行的内容，因为数据源是与datagrid绑定使用的。