pass string variable without quotes in query vba

Question

Dim StoreNoToUpdate As String
Dim Marsha As String

StoreNoToUpdate = \"ABCXYZ123\"

Marsha = \"hi\"

db.Execute \"Update TblLod         


        

Answer 1

Try:

Dim StoreNoToUpdate As String
Dim Marsha As String

StoreNoToUpdate = "ABCXYZ123"

Marsha = "hi"

Db.Execute "Update TblLodgingReport set [MarshaCode]='" & Marsha & "'where [Store Number ID]= 'ABCXYZ123'"