Problemas con consultas por codigo

[wester]

Amigos del foro, poseo el siguiente problema:
Necesito cargar un archivo de texto plano a la base de datos,

entonces lo que hago es pasar los registros a una tabla temporal, luego tomo uno por uno de los registro y con el ID consulto si en la tabla destino existe, si no existe lo copio si existe me lo salto; pero resulta que solo lo hace el primer registro, del segundo en adelante sale el siguiente error:

"Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros" y no he podido dar con el problema.

Adjunto el codigo que utilizo para ver si alghuno me puede ayudar. Gracias.

***********************************************
Do

Set cs_procesos = New ADODB.Recordset
cs_procesos.LockType = adLockPessimistic
cs_procesos.Open strsql2, strcnn1, adOpenDynamic

strcriteria = tb_tb_pruebas!C1

cs_procesos.Find strcriteria 'Linea donde se produce el error

If cs_procesos.EOF = True Then ' no existe esa ficha.

cs_procesos.AddNew

cs_procesos!FICHA_CAT = tb_tb_pruebas!C1
cs_procesos!CONTRIBUYENTE = tb_tb_pruebas!C3
cs_procesos!IDENTIFICACION = tb_tb_pruebas!C2
cs_procesos!DIRECCION_INMUEBLE = tb_tb_pruebas!C4
cs_procesos!INT_PREDIAL = tb_tb_pruebas!C11
cs_procesos!TOTAL_PREDIAL = tb_tb_pruebas!C12
cs_procesos!INT_CORTOLIMA = tb_tb_pruebas!C15
cs_procesos!TOTAL_CORTOLIMA = tb_tb_pruebas!C16
cs_procesos!AÑO_INICIAL = tb_tb_pruebas!C8
cs_procesos!AÑO_FINAL = tb_tb_pruebas!C9

cs_procesos.Update

cs_procesos.Close
Set cs_procesos = Nothing

End If
tb_tb_pruebas.MoveNext


Loop Until tb_tb_pruebas.EOF = True
************************************************