Đáng ra, với thái độ chủ thớt tôi không thèm vào thớt này. Nhưng nghĩ lại mình khong nên giận cá chém thớt (từ thớt ở đây chỉ trùng hợp, khong có ý chơi chữ)
Toi viết đây để đề nghị bạn Chìm+Nổi (bài #7) làm thử xem:
ADO dùng OLEDB để lấy dữ liệu.
Nếu khong được chỉ dẫn thì OLEDB bắt buọc phải đoán dữ liệu. Một trong những công việc nó làm lúc đoán là vào hệ thống xem loại dữ liệu nó cần đọc được mặc định như thế nào. Đối với file Excel thì nó đọc cái phần TypeGuessRows (có 's', bạn chìm+nổi gõ thiếu ký tự này) để biết cần đọc bao nhiêu dòng thì đoán được kiểu dữ liệu. Khi giá trị này là 0 thì nó coi như phải đọc hết (đúng ra no không đọc hết, chỉ đọc đến lúc nó tự cảm thấy có thể tin tưởng). Tuy nhiên việc này cũng có vấn đề
1. vì phải thống kê kiểu dữ liệu để đoán nên hơi mất sức. Tuy nhiên không lâu lắm.
2. có thể nó vẫn đoán sai như thường
3. nếu trong dữ liệu có những chuỗi dài, có thể nó cắt lại còn 255 ký tự.
Vì vậy, để tránh vấn đề thứ 3, người ta thêm "ImportMixedTypes=Text"
Hoặc thêm 10 dòng đầu vào dữ liệu, những cột text thì đặt 1 chuỗi cỡ 1000 ký tự. Import xong thì xoá 10 dòng này. Lưu ý là 1 dòng không đủ, tối thiểu phải vài dòng.
Chú thêm: theo tôi biết, nếu ghi "TypeGuessRows=0" thẳng bên trong chuỗi kết nối thì sẽ không phải sửa registry (đâu phải máy nào cũng cho sửa registry). Tuy nhiên, hình như nó chỉ thự hiện được với ACE, chứ JET khong được.
Nếu bạn Chìm+Nổi có rảnh thì thử xem. Tôi chỉ dùng OLEDB trong phần mềm khác chứ không dùng trong VBA nên không có cơ hội thử.
. E sửa thành 0 rùi, mà vẫn vậy, chắc nó mặc định vậy rùi, chỉ có cách thay đổi kiểu dữ liệu nhập vào. Cảm ơn a, chúc a ngày cuối tuần vv 
