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

Hola Hector,

Para poder usar ADO es necesario establecer una referencia a la biblioteca
correspondiente desde tu proyecto VBA. En el Editor VBA ve al menu
Herramientas>Referencias, busca y marca la referencia "Microsoft ActiveX
Data Objects #.# Library" (donde #.# es el numero de la version de la
libreria, p.ej. 2.5, 2,6, 2,7, 2.8 etc., segun tu version de Office).

que este traducido al castellano en tu version - yo trabajo con la version
inglesa.

Saludos,
KL

"HECTOR BARAJAS" wrote in message
news:
> Alguien me podria decir como accedo a una base de datos de excel con

> Escribo este codigo en las declaraciones generales del libro y me saca

> error:
> El error es "No se ha definido el tipo definido por el usuario. Alguien

> 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
>
>
>
>
>