singo1232001

Sub test()
i = Split("Provider=Microsoft.,Jet.OLEDB.4,.0;Extended Properties=Excel ,8,.0;Data Source=", ",")
If Application.Version > 12 Then i(1) = "ACE.OLEDB.12": i(3) = 12
Set cn = CreateObject("adodb.connection"): cn.Open Join(i, "") & ThisWorkbook.FullName
q = "select top 5 * from[sheet1$A1:A]where LotNo is not NULL order by LotNo desc "
MsgBox Join(Application.Index(cn.Execute(q).getrows, 1, 0), Chr(10))
End Sub