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绑定使用的。

引用楼主 dddiaodehuali 的回复:

我有个问题想请教大家，很着急！
我在datagird的click事件中设置选中datagrid某行后timer控件激活，定义一个ActiveRow As Integer来记录所选行，ActiveRow=DataGrid.Row，用select case语句使不同行有不同的响应，现在的问题是，datagrid如果下拉的话所选的行好像就不能用DATAGRID.ROW来代表，比如我的datagrid下……

你好，请问有什么可以再datagrid中操作实现的方法吗因为我记录集不是很熟悉，如果在记录集中操作的话代码麻烦吗？可以帮我写一下吗谢谢！哪位指点一下谢谢~ 顶上去啊真心求指教！！！

补充：VB ,  数据库(包含打印，安装，报表)