Compile error in Access

[flynn]

Can anyone tell me what I am doing wrong in the following code?
I get this error when I try to run the following code:
Compile error:
Expected Function or variable

and the Execute method is hilighted (shown here in blue). I used the method browser to select the Execute method, so it shouldn't be mis-spelled.

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim db1 As Database
    Dim rs As Recordset

    Set db1 = CurrentDb
    
    Set rs = db1.Execute("ListItemQuery")
    MsgBox "database: " & db.Name & vbCrLf & "  max item number: " & rs.maxoforderid

End Sub

[Ephesians]

You can only execute insert, append, and delete sql statements. It looks like you're trying to use a select statement in which case you would be better off using:

set dbase = currentdb
set recset = dbase.openrecordset (strSql,dbOpenSnapshot)
'insert your code
dbase.close
set dbase = nothing
set recset = nothing