Синтаксическая ошибка:
availableUnits = Nz((DLookup("[AvailableUnits]", "Stock", "Symbol = '" & Me.CBSymbol.Column(1) & "'"),"")
У вас есть лишние скобки в этой строке после Nz
Nz
availableUnits = Nz(DLookup("[AvailableUnits]", "Stock", "Symbol ='" & Me.CBSymbol.Column(1) & "'"),"")
Используйте Notepadd++, чтобы упростить проверку такого рода вещей.
Notepadd++