Muchas gracias por responser, lastima que no lo lei ayer, Es verdad Alexis Salinas tienes toda la razón, yo lo logre hacerlo algo casi igual
Para quienes les interese:
Para lograr insertar un registro con un numero cualquiera en un campo IDENTITY (OJO un numero que no exista hasta ese momento, no se puede reemplazar), se debe realizar lo siguiente:
'Omito la conexion a la base de datos y declaraciones
'Creamos nuestra cadenaSQL, esto no funciona con el uso de AddNew
SQL = "INSERT INTO Nombre_Tabla (ID, Nombre, Activo ...) VALUES (15,'Kev',1, ....)"
'NOTA.- Tener cuidado con valores Bit al trabajar con 2 o mas bases de datos, estos valores deben ser agregados como 1 o 0 y no como 'True' o 'False', si se utiliza estos ultimos dara error al tratar de convertir variable tipo Char a Bit
'Activamos para poder manipular el campo IDENTITY
cnn.Execute "SET IDENTITY_INSERT Tabla ON"
Set rs = cnn.Execute(SQL)
'Activamos para poder manipular el campo IDENTITY
cnn.Execute "SET IDENTITY_INSERT Tabla OFF"
Con esto podemos realizar el objetivo que personalmaente me trajo unos cuantos problemas
Salu2
