Private Sub Form_Load() 
Dim rs As ADODB.Recordset 
Dim cnn As ADODB.Connection 
Dim myPath As String 
Dim fld As ADODB.Field 
Dim fldCat As String 
Set rs = New ADODB.Recordset 
Set cnn = New ADODB.Connection 
myPath = "mypath.xls" 
cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & myPath & ";ReadOnly=1" 
rs.Open "SELECT * FROM ", cnn 
Do While Not rs.EOF 
For Each fld In rs.Fields 
fldCat = fldCat & fld 
Next 
MsgBox fldCat  
fldCat = "" 
rs.MoveNext 
Loop 
End Sub