xin lỗi bạn, vì sáng nay có chút việc nên bây giờ mới trả lời.
Calendar là cotrol của MS nên không cần cài đâu.
Lỗi là khi chạy thì đến dòng lệnh .Value = DateSerial(Right(lstDatabase.Column(0, nDong), 4), Mid(lstDatabase.Column(0, nDong), 4, 2), Left(lstDatabase.Column(0, nDong), 2)) bị tô vàng.