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