Visual Basic - ACTUALIZACION

MUY BUENAS, TENGO UN PROBLEMA . QUIERO ACTUALIZAR UNA TABLA CON DATOS QUE TENGO EN MI DATAGRID , EL DATAGRID PUEDE CONTENER VARIAS FILAS, PERO QUIERO Q ESOS DATOS DE CADA FILA MODIFIQE LOS DATOS QUE SE ENCUENTRAN EN UN SOLA FILA DE LA OTRA TABBLA. PUS TENGO ESTE CODIGO PARA EL BOTON GRABAR. ESPERO Q ME PUEDAN BRINDAR ALGUNAS IDEAS PARA SOLUCIONARLO, ADEMAS QUE ME SALE ESTE ERROR..... Instrucción UPDATE en conflicto con la restricción FOREIGN KEY "FK_CATASTRO_VIA". El conflicto ha aparecido en la base de datos "SIMTRUX", tabla "dbo.VIA", column 'codcalle'.
Se terminó la instrucción. XFAS ES URGENTE , GRACIAS DE ANTEMANO !


Try

For i As Integer = 0 To dgvfincas.Rows.Count - 1

Dim cnn As New Conexion()
Dim cn As New SqlConnection(cnn.LeerConexion())
Dim cmd As New System.Data.SqlClient.SqlCommand()
cmd.Connection = cn
cmd.CommandText = "Update Catastro set codcalle=@codcalle,num1a=@num1a,num1b=@num1b,num1c=@num1c,codcalle1=@codcalle1,num2a=@num2a,num2b=@num2b,num2c=@num2c,codcalle2=@codcalle2,num3a=@num3a,num3b=@num3b,num3c=@num3c,EstadoInfo=@Estado,activo=@activo,observa2=@observacion where cod_cata=@codcata"
cmd.Parameters.Add("@Codcata", System.Data.SqlDbType.Char, 9)
cmd.Parameters.Add("@codcalle", System.Data.SqlDbType.Char, 5)
cmd.Parameters.Add("@num1a", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num1b", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num1c", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@codcalle1", System.Data.SqlDbType.Char, 5)
cmd.Parameters.Add("@num2a", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num2b", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num2c", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@codcalle2", System.Data.SqlDbType.Char, 5)
cmd.Parameters.Add("@num3a", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num3b", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@num3c", System.Data.SqlDbType.VarChar, 15)
cmd.Parameters.Add("@Estado", System.Data.SqlDbType.Char, 9)
cmd.Parameters.Add("@Activo", System.Data.SqlDbType.Char, 1)
cmd.Parameters.Add("@Observacion", System.Data.SqlDbType.VarChar, 400)


cmd.Parameters("@Codcata").Value = Convert.ToString(dgvfincas.Rows(i).Cells(0).Value.ToString())
cmd.Parameters("@CodCalle").Value = Convert.ToString(dgvfincas.Rows(i).Cells(1).Value.ToString())
cmd.Parameters("@Num1a").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num1b").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num1c").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@codcalle1").Value = Convert.ToString(dgvfincas.Rows(i).Cells(1).Value.ToString())
cmd.Parameters("@Num2a").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num2b").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num2c").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@codcalle2").Value = Convert.ToString(dgvfincas.Rows(i).Cells(1).Value.ToString())
cmd.Parameters("@Num3a").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num3b").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Num3c").Value = Convert.ToString(dgvfincas.Rows(i).Cells(2).Value.ToString())
cmd.Parameters("@Estado").Value = Convert.ToString(dgvfincas.Rows(i).Cells(3).Value.ToString())
cmd.Parameters("@Activo").Value = Convert.ToString(dgvfincas.Rows(i).Cells(4).Value.ToString())
cmd.Parameters("@Observacion").Value = Convert.ToString(dgvfincas.Rows(i).Cells(5).Value.ToString())


cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Next
Catch ex As Exception
Throw New Exception(ex.Message)

End Try

dgvfincas.Refresh()
MessageBox.Show("ACTUALIZADO CORRECTAMENTE")
dgvfincas.DataSource = ListarFincas()

NADIE QINE ME PUEDE AYUDAR CON MI PROBLEMA !!!