Visual Basic - AYUDA CON UN ADODB

Hola, tengo un problema para conectarme mediante un ADODB.
La coneccion ya me sale, pero cuando quiero adicionar un registro nuevo me aparece el siquiente mensaje:

"La operacion de multiples pasos de OLEDB generò errores. Compruebe los valores de estado de OLEDB si es posible. No se realizo ningun cambio".

El codigo para adicionar un registro es el siguiente:

Set rstUnidades = New ADODB.Recordset
rstUnidades.CursorType = adOpenKeyset
rstUnidades.LockType = adLockOptimistic
rstUnidades.Open "unidades", cnn1, , , adCmdTable

rstUnidades.AddNew
rstUnidades!codigo_unidad = "1"
rstUnidades.Update

¿que puedo hacer?

Por qué no pruebas a insertar el registro mediante un INSERT. Solo tienes que crear una conexión sobre la BBDD y llamar al método Execute del objeto Conecction.

SQLexecute = " INSERT INTO PRUEBA " & _
"(id,cantidad) VALUES ('1', 1);"
db.Execute SQLexecute
End Sub