I have the following
DSA = DLookup("[DSA]", "Units", "[Unit]=Forms!Data![Hospital]")
DSB = DLookup("[DSB]", "Units", "[Unit]=Forms!Data![Hospital]")
DSC = DLookup("[DSC]", "Units", "[Unit]=Forms!Data![Hospital]")
DSD = DLookup("[DSD]", "Units", "[Unit]=Forms!Data![Hospital]")...