尝试:
Dim StoreNoToUpdate As StringDim Marsha As StringStoreNoToUpdate = "ABCXYZ123"Marsha = "hi"Db.Execute "Update TblLodgingReport set [MarshaCode]='" & Marsha & "'where [Store Number ID]= 'ABCXYZ123'"

尝试:
Dim StoreNoToUpdate As StringDim Marsha As StringStoreNoToUpdate = "ABCXYZ123"Marsha = "hi"Db.Execute "Update TblLodgingReport set [MarshaCode]='" & Marsha & "'where [Store Number ID]= 'ABCXYZ123'"