ms-access - アクセス VBA エラー 3075

Question

Access 2016 を実行していて、クエリからいくつかのレコードを取得しようとしています。私はアクセス初心者で、データベースを作成しています。次のコードを実行すると、エラー 3075 が表示され、オペレーターが存在しないというメッセージが表示されます。SQL コードをアクセス クエリに貼り付けると、正常に実行されるため、問題を確認できません。

    Sub DOthings()

Dim i As Integer
Dim array1() As Variant
Dim array2() As Variant

Dim daDb As DAO.Database
Set daDb = CurrentDb


'' getting temp vars first
Dim vend As String
vend = CStr([TempVars]![temp1]) '' I get these TEMP vars from the access application

Dim loc As String
loc = CStr([TempVars]![temp2])

MsgBox ("Vendor is: " & vend & " And Location is: " & loc)
'setting SQL statement
Dim qry As String 'SQL STATEMENT FOR QUERY
qry = "SELECT [Table1].ScanID, [Table2].FieldV, [Table1].[FieldA], [Table1].[FieldE], (([Table1]![FieldE])/([Table1]![FieldA])) AS V, [Table1].[QR Code], [Table3].[Selected?], [Table3].[Location Recieved], [Table3].[Travel Notes] FROM ([Table2] INNER JOIN [Table1] ON [Table2].BatchID = [Table1].BatchID) INNER JOIN [Table3] ON [Table1].ScanID = [Table3].Scan_ID **WHERE ((([Table2].FieldV) = " & vend & ") And (([Table3].[Location Recieved]) = " & loc & ") And (([Table3].[Date Shipped]) Is Null)) ORDER BY (([Table1]![fieldE])/([Table1]![FieldA])) DESC;**"
Dim daQdf As DAO.QueryDef 'First Query to find and SELECT the actual datapoints."
Set daQdf = daDb.CreateQueryDef(qname, qry)

Dim daRs As DAO.Recordset 'Getting the recordset Setup
Set daRs = daQdf.OpenRecordset(qname, Dynaset)

だから私が得ているエラーは、基本的にWhereステートメントが間違っていると言いますが、問題はわかりません。エラーの原因は別の場所にありますか?

これは私が得ているエラーステートメントです:

誰でもこれを修正する方法を教えてもらえますか? または、問題の原因は何ですか?