Can't Update an Updatable Recordset

I am using code (simplified for this post) to generate a recordset to which
I want to add a record.

Set rs = db.Openrecordset("SELECT * FROM qVariations WHERE ......")
ws.Begintrans
If rs.Updatable then
rs.AddNew
rs!LAN = vLAN
rs.Update
etc

The fifth line generates Error 3027 (Cannot Update. Database or Object is
read only).
The query (qVariations) can be manually edited.
I am using A2002.
I would have thought that the Updatable test would identify any problems.
Any help appreciated.

--
Bob Darlington
Brisbane

Please disregard my earlier post. Problem was a simple omission on my part
(which was not reflected in the code snip I posted),

--
Bob Darlington
Brisbane
"Bob Darlington" <bob@dpcmanAX.com.au> wrote in message
news:406b806b$0$25655$afc38c87@news.optusnet.com.a u...[color=blue]
> I am using code (simplified for this post) to generate a recordset to[/color]
which[color=blue]
> I want to add a record.
>
> Set rs = db.Openrecordset("SELECT * FROM qVariations WHERE ......")
> ws.Begintrans
> If rs.Updatable then
> rs.AddNew
> rs!LAN = vLAN
> rs.Update
> etc
>
> The fifth line generates Error 3027 (Cannot Update. Database or Object is
> read only).
> The query (qVariations) can be manually edited.
> I am using A2002.
> I would have thought that the Updatable test would identify any problems.
> Any help appreciated.
>
> --
> Bob Darlington
> Brisbane
>
>[/color]