I have modified this now, to like like:
Private Sub ServiceCode_AfterUpdate()
Dim varSerC, varDiag, varRate As Variant
varSerC = DLookup("ServiceCode", "Service List", "ServiceCode = '[ServiceCode]' ")
varDiag = DLookup("Diagnosis", "Service List", "ServiceCode = [ServiceCode] ") & " - "...