looks like you want to use the second dlookup as part of the string criteria for the first lookup? Is that right? In which case, try:
timevalproc = DLookup("[Haircut Time]", "tblEmployee", "[Employee ID] = '" & [txtID] & Dlookup("[Procedure Name]","tblProcedure", "[Procedure Name]= '" &...