Visual Basic - Leer hoja de Excel mediante ADO

Necesito leer datos de varias columnas de una hoja de Excel para crear un fichero y luego meter los datos en una base de datos Access. Tengo un ejemplo de algo parecido hecho con un control Data y con DAO, pero yo quería saber como podía hacerlo en ADO. Si alguien sabe por favor ayuda, gracias

Prueba el siguiente codigo.

dim cnHoja as connection
dim recHoja as recordset

cnHoja.open "Driver={Microsoft Excel Driver (*.xls)};Dbq=archivo.xls"
recHoja.open "SELECT * FROM archivo",cnHoja

Probablemente tengas que cambiar la forma en como abres el recordset.