vb.2005 CurrentCellChanged

[nicjori]

Hola a todos si alguien podria ayudarme tengo un problema con datagrid
estube trabajando con vb.net 2003 con el metodo CurrentCellChanged
para pasar los datos con selectcionar a las cajas de texto aqui les
mando el codigo que trabaje con vb.net 2003

Private Sub DgrProducto_CurrentCellChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles DgrProducto.CurrentCellChanged
Dim Posicion As Integer
Posicion = Me.DgrProducto.CurrentCell.RowNumber
Me.TxtCodigo.Text = Me.DgrProducto.Item(Posicion, 0)
Me.TxtDescripcion.Text = Me.DgrProducto.Item(Posicion, 1)
Me.CbUnidadMedida.Text = Me.DgrProducto.Item(Posicion, 2)
Me.TxtPrecio.Text = Me.DgrProducto.Item(Posicion, 3)
Me.TxtStock.Text = Me.DgrProducto.Item(Posicion, 4)
Me.DtpFechaCompra.Text = Me.DgrProducto.Item(Posicion, 5)
End Sub


este mismo codigo estoy utilizando con datagridview en vb.net 2005 y
me sale error o derrepende se trabaja de otra manera quiero pasar los
datos de datagrid a las cajas de text.
gracias por su ayuda de antemano..