Можно также попробовать
B = DLookup("[Duration]", "Table1", "[ID] =" & Y)
C = DLookup("[Due_date]", "Table1", "[ID] =" & A)
или, если идентификатор - строка
B = DLookup("[Duration]", "Table1", "[ID] ='" & Y & "'")
C = DLookup("[Due_date]", "Table1", "[ID] ='" & A & "'")