VB code producing an error

[Wildster]

Hi,

I'm working on the following code: -

Dim test As Database
Dim Rs As DAO.Recordset
Dim Msg As String
Dim bFlag As Boolean

Set Rs = CurrentDb.OpenRecordset("query", dbOpenStatic, dbReadOnly, dbOptimisticValue)
...

But I'm having trouble as it returns the Run Time error 3001 "Invalid Argument", the line of code that it doesn't like is -

Set Rs = CurrentDb.OpenRecordset("query", dbOpenDynaset, dbAppendOnly, dbOptimisticValue)

Can anyone help with a way to solve this error please? Or a way around it without using OpenRecordset?

I've been stuck trying to solve this error for 3 days now!

Thanks

[anhn]

Try without the last argument:

Set Rs = CurrentDb.OpenRecordset("query", dbOpenStatic, dbReadOnly)

[Wildster]

Thanks for the response, I've tried it but it still produces the same error. Cant see why at all. Is there anything else you can think of?

Thanks

[anhn]

How about this:

Set Rs = CurrentDb.OpenRecordset("query", dbOpenDynaset)

[Wildster]

Too few parameters: Expected 3 is the error I now get, so it needs 3 parts to the argument

[anhn]

What is "query"?
That error comes from the "query".

[Wildster]

Sorted it, it was the references!! Thanks for the help guys