Visual Basic.NET - RowUpdating con sp

hola amigos....necesito que porfa me ayuden un poco

Les cuento.....estoy llenando una gridview desde un procedimiento almacenado este es el codigo

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim miconexion As New SqlConnection
miconexion.ConnectionString = "data source =BZGDESARROLLO2\SQLEXPRESS; initial catalog = ControlProyectos; user id = sa; password = BizAgi2009"
miconexion.Open()
'Dim fila As SqlDataReader
Dim micomando As New SqlCommand("MantenedorContacto", miconexion)
micomando.CommandType = CommandType.StoredProcedure
Dim p1 As New SqlParameter("@rutcli", SqlDbType.VarChar, 50, ParameterDirection.Input)
p1.Value = TextBox1.Text
micomando.Parameters.Add(p1)
micomando.Connection = miconexion
Dim mida As New SqlDataAdapter(micomando)
Dim mids As New DataSet
mida.Fill(mids)
GridView1.DataSource = mids.Tables(0)
GridView1.DataBind()
End Sub

asi cargo la gridview........y ahora le agrege un campo para actualizar los datos...ya tengo controlados los eventos GridView1_RowCancelingEdit.......GridView1_RowEditing.....
perooooooooooo mi problema es con este evento GridView1_RowUpdating el cual es el que actualiza jejejje

esto es lo k he intentado hasta el momento........................................

Private Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim index As Integer = GridView1.EditIndex
Dim row As GridViewRow = GridView1.Rows(index)

Dim miconexion As New SqlConnection
miconexion.ConnectionString = "data source =BZGDESARROLLO2\SQLEXPRESS; initial catalog = ControlProyectos; user id = sa; password = BizAgi2009"
miconexion.Open()
'Dim fila As SqlDataReader
Dim micomando As New SqlCommand("MantContactoAct", miconexion)
micomando.CommandType = CommandType.StoredProcedure

Dim p1 As New SqlParameter("@idcont", SqlDbType.Int, ParameterDirection.Input)
Dim p2 As New SqlParameter("@nomb", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p3 As New SqlParameter("@fonmov", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p4 As New SqlParameter("@fonfijo", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p5 As New SqlParameter("@cargo", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p6 As New SqlParameter("@direcc", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p7 As New SqlParameter("@email", SqlDbType.VarChar, 50, ParameterDirection.Input)
Dim p8 As New SqlParameter("@vigente", SqlDbType.Bit, ParameterDirection.Input)
p1.Value = GridView1.Rows(e.RowIndex).Cells(0) ' ESTO SE SUPONE CON SON LOS CAMPOS NUEVOS DE LA GRIDVIEW
p2.Value = GridView1.Rows(e.RowIndex).Cells(1)
p3.Value = GridView1.Rows(e.RowIndex).Cells(2)
p4.Value = GridView1.Rows(e.RowIndex).Cells(3)
p5.Value = GridView1.Rows(e.RowIndex).Cells(4)
p6.Value = GridView1.Rows(e.RowIndex).Cells(5)
p7.Value = GridView1.Rows(e.RowIndex).Cells(6)
p8.Value = GridView1.Rows(e.RowIndex).Cells(7)
micomando.Parameters.Add(p1)
micomando.Parameters.Add(p2)
micomando.Parameters.Add(p3)
micomando.Parameters.Add(p4)
micomando.Parameters.Add(p5)
micomando.Parameters.Add(p6)
micomando.Parameters.Add(p7)
micomando.Parameters.Add(p8)
micomando.Connection = miconexion
Dim mida As New SqlDataAdapter(micomando)
Dim mids As New DataSet
mida.Fill(mids)
GridView1.DataSource = mids.Tables(0)
GridView1.DataBind()
End Sub

AYUDAAAAA PORFAAAAAAAAAAAAAAAAAAAA