SQL SELECT * syntax error(s)

[GraeagleBill]

What seemed simple at the outset keeps giving errors.

THE SUBS CODE:

Public Sub SetF2F8(DteValue As Long)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' We need to update the date fields in the date columns in table tblMenuSheet
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Dim strSQL As String
Dim rs As DAO.Recordset


On Error GoTo ErrHandler


strSQL = "SELECT * From [tblMenuSheet] WERE [MenuID] = " & intDateRow     'intDateRow from Settings, global to this module
Set rs = DBEngine(0)(0).OpenRecordset(strSQL)


'#### SNIP ####


rs.Close
Set rs = Nothing


Exit_ErrHandler:
    Exit Sub
    
ErrHandler:
    MsgBox "Error " & Err.Number & " in SetF2F8 Sub : " & Err.Description, vbOKOnly + vbCritical
    MsgBox strSQL       'Let me see what the beef is?
    Resume Exit_ErrHandler
End Sub

THE ERRORS:

[Edgar]

You wrote WERE and it's WHERE.

[Welshgasman]

Need to go to Specsavers.
As mentioned WERE not WHERE ! :-)

[GraeagleBill]

GOOD GRIEF! (You'll understand this caper better when you reach 90 years-old)
Thanks,
The "Old Geezer"

[Welshgasman]

I am getting there.