Visual Basic - AddNew en ADO

Quiero crear un nuevo registro en ADO para insertar un nuevo producto. Pero a la hora de de hacer el AddNew me da un error.
Error: 3027 No se puede Actualizar. La base de Datos o el objeto es de solo lectura.
CODIGO FUENTE DEL PROCEDIMIENTO (Solo parte afectada)
*******************
Set wrkODBC = CreateWorkspace("Estanco", "", "", dbUseODBC)
Set conEstanco = wrkODBC.OpenConnection ("conAddStock", , , "ODBC;DSN=estanco")
Set rsEstanco = conEstanco.OpenRecordset("productos", , dbOpenDynaset)
With rsEstanco
.AddNew
MsgBox "ESTO NO CHUTA"
'guardar_campos (rsEstanco)
.Update
***********
Supongo que el error es por la manera que abro el recordset. Pero he provado mil maneras y nada de nada.

Gracias

Marcel para empezar el codigo que pones es DAO no ADO, ahora yo abria mi bases de datos con DAO de esta manera:

Public Sesion As Workspace
Public Bases_Datos As Database
Public Recordset1 As Recordset

Set Sesion = Workspaces(0)
Set Bases_Datos = Sesion.OpenDatabase(App.Path & "\CD-B.mdb")

Set Recordset2 = Bases_Datos.OpenRecordset("Categoria", dbOpenTable)

Ahora tu tienes que hacer ciertos cambios por que veo que usas DSN