Desesperado con el Dbgrid ¡¡AYUDAAA!!

[luppus]

Por favor, os pido ayuda, me queda tan solo esto para poder entregarlo:
Lo que pretendo es que cuando el usuario pulse en una fila del DBgrid recojo la fila en la variable "nReg", y que me muestren los datos del registro de esa variable.
Lo hace bien hasta el registro nº 9, pero a partir de ahí si el usuario pincha sobre una fila con dos dígitos (es decir, 10, 11, 12...) no lo hace.

Por favor echarme una mano.

Private Sub DBGrid1_Click()
Dim nReg
nReg = 0
nReg = DBGrid1.Row 'Recojo en una variable el valor de la fila que ha pulsado
Data2.Refresh ' Hacemos que se "recarguen" los datos
On Error Resume Next
Data2.Recordset.Move nReg ' Se mueve al registro
If Err Then
Text4.Text = "ERROR"
End If
End Sub