SoloCodigo

Hola ebolo.

No conozco la causa del error, pero sí me sorprende el texto que muestra. Veo que usas DAO... tal vez te convendría (si no te supone mucho curro, claro) usar ADO con un proveedor OleDb Microsoft jet 4.0 para utilizar bases de datos access 2000.

Suerte.

Que tal:
Por lo general el campo autonumerico (ID) solo se utiliza en la sentencia UPDATE para hacer referencia al campo que vas a actualizar, si intentas modificarlo te puede causar un error ya que este es generado por una unica vez al ingresar un registro nuevo.
 aqui hay un ejemplo de una sentencia SQL UPDATE:

Sub moduser(nombre As String, nom As String, area As String, uni As Integer, dep As Integer, car As String, pas As String,iid as String)

ssql = "UPDATE Usuarios SET Nombrec='" & nombre & "',Nombre='" & nom & "',Area='" & area & "',Unidad='" & uni & "',Departamento='" & dep & "',Cargo='" & car & "',Contraseña='" & pas & "' WHERE Id_Usuario=" & iid

cnBD.Execute ssql

End Sub

Como puedes ver el Campo autonumerico unicacmente sirve como referencia
para la modificacion y no se incluye dentro de los campos a modificar.

Cuibo Ebolo:

Al añadir un Registro nuevo a una tabla nuevamente te digo que el campo autonumerico lo genera la BD automaticamente por lo que te debes preocupar es por validar los datos que van a ser introducidos en los campos restantes.

Por lo del AdoDc 6.0 yo no lo manejo, trabajo directamente con puras sentencias
SQL y con referencias ADODB. Ojala y alguien mas te pueda Ayudar con tu problema.  
 

Cuibo Ebolo:

este es un poco complicado pero ahi va:
1-En en menu proyecto, escoge referencias, escoge Microsoft ActiveX DataObjects 2.1 Library.

2.-Crea un Modulo

3.-Dentro del modulo crea un Sub main()
 
En la linea de ConnectionString, despues de Source= va la direccion de tu BD

4.-En El explorador de proyecto Da con el click derecho y escoge propiedades
y como objeto inicial Pones:Sub Main()

5.-Ahora ya esta tu programa conectado a tu BD mediante la variable cnBD declarada en el modulo (Debes declararla como publica Es importante)ejemplo:
Public Cnbd as ADODB.Connection

6.-El siguiente es un ejemplo de como añadir un registro Usando este metodo:

Nota que los valores que toma el procedimiento son los campos de la BD los puedes tomar de las cajas de texto de tu formulario y mandarselas al procedimiento

Espero que esto aunque es poco te sirva.
Y ya sabes si tienes otra duda Con gusto la respondere

Por fin he resuelto mi problema y puedo seguir la aplicación.
Voy a explicar lo que he hecho, al fianl por DAO porque toda la aplicación la tengo hecha así, por si a alguien le interesa.
El error que tenía era:
"Error 3622 en tiempo de ejecución:
You must use the dbSeeChanges option with openrecordset when accesing
a SQL Server table that has an IDENTITY column."

Este error es debido a que la tabla de la base de datos de SQL Server tiene una columna autonumérica, que en caso de que queramos añadir un registro nuevo a la tabla debemos hacer la consulta del recordset de esta manera:
Set rs=bd.openrecordset(consulta, dbOpenDynaset, dbSeeChanges),
estando definidos anteriormente el rs, bd y consulta como:
Dim bs as database, rs as recordset, consulta as string.
siendo 'consulta'  la consulta SQL, que en este caso, es de todos los campos de la tabla en cuestión.
Hay que poner bien todos los datos de los campos para que no nos dé error de ningún tipo, y como me explica camarena6 no se debe poner dato en el campo autonumérico al insertar un registro nuevo.

Pues ya está, por fin después de una semana con el error.
   
Saludos y si no está bien explicado lo siento.