Dim eRS As New ADODB.Recordset
Dim eCN As New ADODB.Connection

    With eCN
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Extended Properties").value = "Excel 8.0;HDR=NO;IMEX=1;"
            .Open txtpath.Text
    End With
    eRS.Open "Select * from [Sheet1$]", eCN, adOpenStatic