Visual Basic - problema con OpenSchema

amigos use el codigo qeu me dieron, (aora no recuerdo el nombre creo que fue P3L30N)

Con el método OpenSchema de ADO:

Dim rs As ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF
Combo1.AddItem rs("TABLE_NAME")
rs.MoveNext
Loop

Por supuesto, "cn" es la conexión a la base de datos.

y ahora me da el siguiente error

NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO

Mejor prueba esto (que me funciona perfecto en MySQL):

Dim rs As ADODB.Recordset
Set rs = cn.Execute("Show tables")
Do While Not rs.EOF
Combo1.AddItem rs.fields(0)
rs.MoveNext
Loop

Se supone que usas ADO, y que "cn" ya está conectada a la base de datos.

Para Yo:

Efectivamente, eso funciona perfecto con MySQL, pero no con otras bases de datos como Access p.e.Sin embargo el método OpenSchema funciona tanto en Access como MySQL.

Para andres:

El error que te da es porque seguramente no has marcado la referencia a ADO.
Pincha en el menú Proyecto y selecciona "Referencias", busca "Microsoft ActiveX Data Objects 2.8 Library" y la marcas.

Nota: Si no te aparece esa versión (2.8) marca la mas aproximada.