Foros del web, para los que viven de bits

Hola!! Es la primera vez q recurro al foro para solucionar un problema, espero q me ayuden.

El Problema:

No ACTUALIZA los registros en una de mi Tb_General, me sale el siguiente mensaje 'Esta fila ya pertenece a esta tabla'

Public Function ModificarRegistros(ByVal codgeneral As String, ByVal v1 As String,...,v40 As String) As Boolean

Dim cmd As New SqlCommand
Dim vexito As Boolean
vsql = "Update Tb_General set cod_pais=@v1,...nab=@v40 where cod_general=@codgeneral"
cmd.Connection = cnx
cmd.CommandType = CommandType.Text
cmd.CommandText = vsql

'Agregamos parametros para la instruccion SQL
Try
cmd.Parameters.Add(New SqlParameter("@codgeneral", SqlDbType.NVarChar, 4))
cmd.Parameters("@codgeneral").Value = codgeneral

cmd.Parameters.Add(New SqlParameter("@v1", SqlDbType.Int, 4))
cmd.Parameters("@v1").Value = v1
......
cmd.Parameters.Add(New SqlParameter("@v40", SqlDbType.Char, 15))
cmd.Parameters("@v40").Value = v40

cnx.Open()
cmd.ExecuteNonQuery()
vexito = True
Catch x As SqlException
MsgBox(x.Message())
vexito = False
Finally
cnx.Close()
End Try
Return vexito
End Function

Esta funcion va dentro del metodo Sub Modificar(), donde recibe los 40 parámetros

Dentro de este Sub Modificar() al final declaro:

'Aqui coloque un punto de interrupción y todas las variables son correctas y no hay null

ModificarRegistros(codgeneral, v1, v2, ...,v40)

MsgBox("Datos modificados", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message) 'Esta fila ya pertenece a esta tabla

End Try
End Sub


No sé q tanto puede ayudar el código q he colocado aqui, pero espero q sea lo necesario para q me puedan ayudar.

Ciao

el problema creo q esta aqui.

If vaccion = "A" Then 'Nuevo
AgregaRegistro() // modo conectado
Else
ModificaRegistro() // Modo conectado
End If
adap.Update(ds1, "igeneral") // y todavia le pides q actualice