Modificar base de dato y datagrid

[JCiernes]

Hola gente estoy teniendo un problema a la hora de modificar una tabla de una BD , tengo enlazado un datagrid a textbox, para cuando yo clickeo en un registro del dgrid y voy a el boton modificar se me habilitan las cajas de textos para que modifique los datos. El problema es cuando voy al boton grabar para guardar los cambio, me modifica siempre el primer registro de la tabla y no el que yo he elegido en el datagrid. si alguien me puede ayudar se lo agradesco

este es el codigo del boton Regrabar:

Private Sub cmdregrabar_Click()
Dim vprove As String
Dim var2 As Integer

' rsmatpri es el recordset que uso para recorrer la tabla materia prima

rsmatpri("sinonimo_matpri") = txtsinonimo.Text
rsmatpri("descrip_matpri") = txtdescripcion.Text
rsmatpri("stock") = txtstock.Text
rsmatpri("punto_pedido") = txtpunto.Text
rsmatpri("costo_matpri") = txtcosto.Text
vprove = dcbproveedor.Text

rsprove.Open "select id_prov from proveedor where nom_prov = '" & vprove & "'", cn1, adOpenDynamic, adLockOptimistic

If rsprove.EOF And rsprove.BOF Then
'El Recordset esta vació y no hay coincidencias.
Else
var2 = rsprove("id_prov")
End If

rsmatpri("id_prov") = var2

rsmatpri.Update
rsmatpri.MoveLast
rsmatpri.Close


End Sub