Error al declarar recordset con withevents

Esteban
25 de Febrero del 2005
El problema es que cuando declaro el recordset con withevents me da un error (error definido por la aplicación del objeto) y si no le pongo withevents funciona bien. Este es el código:
Option Explicit
Public WithEvents Conexion1 As ADODB.Connection
Public WithEvents BaseBoquillas As ADODB.Recordset

Set Conexion1 = New ADODB.Connection
With Conexion1
.Provider = "Microsoft.jet.oledb.4.0;"
.ConnectionString = "Data source=C:Documents and SettingsAll UsersDocumentosPrecios NorthestBoquillasboquillas.mdb"
.Open
End With
' openschema obtiene informacion sobre la base de datos
' de esta manera obtengo todas las tablas "TABLE" de la base de datos y
' otras "TABLE SYSTEM" del sistema que no me hacen falta
'
Set BaseBoquillas = Conexion1.OpenSchema(adSchemaTables) 'aqui me da el error me sale nothing
Dim i As Integer
Dim NomTabla As String

aijuna
25 de Febrero del 2005
Lo que sucede es que el openschema trabaja con la estructura de la base de datos, por lo que no tenes una \"tabla\" o recorset, sino un esquema de la base de datos, por ahi por eso no te deja poner el withevents, para que lo haces???, por ahi te puedo dar una mano