or this if the previous does not work, try this:
Me![City name] = DLookup("[City Name]", "City", "[Location ID] = " & "'" & Forms![Data Entry]![Location ID] & "'" )
i didn't see jbarnett put both sets of additional quotes in there. You want the string that comes out to look like this...