lstrCommand = "select * from MyTable"

With rs.Fields
.Append "col1", adInteger
.Append "col2", adInteger
End With
rs.Open lstrCommand, cnn, , , adCmdText
rs.AddNew
---->The operation requested is not supported
by the provider ???

Note: the Recordset is opened sucessfully

Thx