See if this gets you started:
Code:
Dim rsA As DAO.Recordset
Dim rsE As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
Set rsE = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePath _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
rsE.Open "SELECT * FROM [Sheet1$A1:A2]", cn, adOpenDynamic, adLockOptimistic
Set rsA = CurrentDb.OpenRecordset("SELECT * FROM " & strTable " WHERE 0=1")
If rsE(0).Name = rsA(0).Name Then