Solved
:D
Here it is people
strSubject = "New feedback from a customer at " & DLookup("[ShopMail]", "tblShops", "[ShopID]= " & Me.txtShopID) compare
strSubject = "New feedback from a customer at " & DLookup("[Shop]", "tblShops", "[ShopID]= " & Me.txtShopID) Works
strSubject = "New...