Dim StoreNoToUpdate As String Dim Marsha As String StoreNoToUpdate = \"ABCXYZ123\" Marsha = \"hi\" db.Execute \"Update TblLod
Try changing the following line
db.Execute "Update TblLodgingReport set [MarshaCode]='" & Marsha & "' where [Store Number ID]='" & StoreNoToUpdate & "'"
Its because 'Marsha' means you are literally sending Marsha as string and not using the variable.
'Marsha'