Visual Basic - Actulizacion Con Adodc

Disculpen por favor .....

No queria preguntar, una tontera pero se me escapa de las manos, saben estoy exportando datos a la base de datos, atraves de un archivo de texto los envio a una grilla y luego de la grilla los envio a la base de datos atraves de un cotrol de datos adodc, pero me no deja insertar los datos por que dice que la clave primaria esta violada, pero no es asi los datos no se encuentran en la base de datos, por ende no puede ser clave repetida, este problemita me tiene muy mal, no se que probar, he probado realizando el insert atraves de SQL PLUS
y los mismo datos los ingresa bien si ningun problema, he llegado apensar que es el control que me pertuba, espero que alguien que lea esto pueda ayudarme,
la primera ves el error lo envia cuando pasa por el update y las veces posteriores los envia en addnew y el update
gracias (les envio el malogrado codigo)

Private Sub Co_Grabar_Click()
Dim salida1
Dim fs, f, ss
NombreAux = CD_Impo.FileTitle
nombre_archivo = NombreAux
NombreArch = Mid(NombreAux, 1, Len(NombreAux) - 4)
salida1 = 0
RUTA = Busca_Trayecto(BD_1)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nombre_archivo)
ss = UCase(f.Name) & " utiliza " & f.Size & " bytes."
bytearchivo = f.Size
tabla = C_Tablas.Text
separador = separa
pDecimal = pdeci
Dim filavar As Integer
Dim coluvar As Integer
Dim mensaje As String
Dim Typedato As String
ucontadoring = 0
If Len(tabla) = 0 Then
MsgBox ("Ingrese un Nombre de Tabla")
Else
If Len(BD_1) = 0 Then
MsgBox ("Ingrese el Nombre de Archivo a Exportar")
Else