accesar ado desde excel

Alguien me podria decir como accedo a una base de datos de excel con ado.
Escribo este codigo en las declaraciones generales del libro y me saca un
error:
El error es "No se ha definido el tipo definido por el usuario. Alguien me
podria decir que me esta faltando o que estoy haciendo mal en la
declaracion
de los objetos.
Option Explicit
Dim CONEXION As ADODB.Connection
Dim REGISTROS As ADODB.RECORDSET

Private Sub Workbook_Open()
Const RUTA As String = "D:\EXCEL2\FACTURACION.MDB"
Set CONEXION = New ADODB.Connection
Set REGISTROS = New ADODB.RECORDSET
With CONEXION
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\EXCEL2\FACTURACION.mdb"
.Open
End With
REGISTROS.Open "select * from ARTICULOS", cnn, adOpenDynamic,
adLockOptimistic