Problem in my query

I have a problem with my query..
This is my orinal code:

Private Sub Form_Load()
Dim SiteCodeName, SiteLocationName

AccntType = DLookup("Usertype", "User", "UserName= [Forms]![LogIn]![txtUserName]")
SiteCodeName = DLookup("SiteCode", "User", "UserName= [Forms]![LogIn]![txtUserName]")
SiteLocationName = DLookup("SiteLocation", "SiteCode", "SiteCode='" & SiteCodeName & "'")
dfsds = MsgBox(SiteLocationName)

Dim SQLSitecode
Dim extSitecode As String
extSitecode = ""

SQLSitecode = "QEmployeeList"
If SiteLocationName Like "Bacolod" & "*" Then
extSitecode = " WHERE SiteCode='" & 292 & "' And Employee.SiteCode= '" & 353 & "'"
Else
extSitecode = " WHERE SiteCode='" & SiteCodeName & "'"
End If
SQLSitecode = SQLSitecode + extSitecode + ";"
Me.RecordSource = SQLSitecode

End Sub


But i got this kind of error.Please see attach file.
Anyone can help me..Thanx in advance..

Attached Images

problem.JPG (75.6 KB)