Visual Basic - Agregar registros, ERROR!!

Hola, tengo una aplicacion en vb6 con access 2007. En la pc que lo programo es windows 7 (todo funciona de maravilla) y en la pc que lo implemento es windows xp (sale error).

Bien, el programa me arroja error cuando intento agregar un registro nuevo. Aclaro que la base ya contiene datos donde la primera columna es el codigo de clientes "0000001".

asi se ve mi codigo en el boton guardar. ACLARO, sucede en el XP y no en 7.

If Base.EOF = False Then
'hace esto porque contiene datos
Base.MoveLast
txt_codigo.Text = Format(Base.Fields(0).Value + 1, "0000000")
With Base
.AddNew
.Fields("Codigo") = txt_codigo.Text
.Fields("Nombre") = txt_nombre.Text
.Fields("Apellido") = txt_apellido.Text
.Fields("DNI") = txt_dni.Text
.Fields("Localidad") = txt_localidad.Text
.Fields("Domicilio") = txt_domicilio.Text
.Fields("Telefono") = txt_telefono.Text
.Fields("Saldo") = Replace(txt_saldo.Text, ",", ".", 1)
.Update
End With
Else
'llego aqui porque esta vacia
txt_codigo = "0000001"
With Base
.AddNew
.Fields("Codigo") = txt_codigo.Text
.Fields("Nombre") = txt_nombre.Text
.Fields("Apellido") = txt_apellido.Text
.Fields("DNI") = txt_dni.Text
.Fields("Localidad") = txt_localidad.Text
.Fields("Domicilio") = txt_domicilio.Text
.Fields("Telefono") = txt_telefono.Text
.Fields("Saldo") = Replace(txt_saldo.Text, ",", ".", 1)
.Update
End With
End If

Puede ser que el campo codigo lo tengas como irrepetible? osea que no puede haber dos datos codigo 00001 . Es fijate que es configuracion de base.

hola christian, al access lo tengo configurado de la siguiente manera a la columna codigo.

Nombre: Codigo
Tipo: Texto
Tamaño del campo: 255
Indexado: Si (Sin duplicados)
Requerido: No
Permitir Longitud cero: Si

Incluso agrego registros en otras tablas de la misma base, que estan configuradas de la misma manera y funciona bien. Solo me pasa con productos y clientes.