Need help with OpenRecordset and SELECT statement

Question

In the code below, I'm receiving a Run-time error '3141':  The SELECT statement includes a reserved word or an argument name this is misspelled or missing, or the punctuation is incorrect.

The line causing the error is:  Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot), but as best as I can tell, my SQL statement is correct.

Can someone kindly tell me what is causing the error?  Thanks in advance for any assistance.

Private Sub PhaseDeliverableName_BeforeUpdate(Cancel As Integer)

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim strResult As String

    Dim strSQL As String

    Set db = CurrentDb

    strSQL = "SELECT LookupPhaseDeliverable.PhaseDeliverableSequence AS SeqNum" & _

                  "FROM LookupPhaseDeliverable " & _

                  "WHERE (((LookupPhaseDeliverable.PhaseDeliverableName)=" & Me.PhaseDeliverableName & ";"

    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

    strResult = rs("SeqNum")    

    rs.Close

End Sub

Answer 1

There should be a space after SeqNum.

Is PhaseDeliverableName a text field? If so, it should be

    strSQL = "SELECT PhaseDeliverableSequence AS SeqNum " & _

        "FROM LookupPhaseDeliverable " & _

        "WHERE PhaseDeliverableName=" & Chr(34) & Me.PhaseDeliverableName & Chr(34)

Chr(34) is the double quote character ".

Answer 2

Yes, PhaseDeliverableName is a text field.  I completely forgot about including the double quote character.  Thanks for also catching the missing space after SeqNum.

The code now works like a charm!  Thanks again for your help.