Visual Basic - ayuda con esto...

declaro esto en Module1.Bas (ya probe con Public tambien)
Global Conexion As ADODB.Connection
Global RsVendedores As ADODB.Recordset

Public Sub AbirBD()
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Negocio.mdb;Persist Security Info=False"
Conexion.Open
Conexion.CursorLocation = adUseClient

Set RsVendedores = New ADODB.Recordset
RsVendedores.Open "Vendedores", Conexion, adOpenDynamic, adLockOptimistic

todo bien en todos los formularios, pero lo que necesito es withevents es decir tener los eventos del rsvendedores como si lo hiciera con un adodc1 local del formulario

gracias de ya

En los módulos Standar no se admiten eventos. la instrución Withevents no funciona. La forma de encapsular tu objeto ADO es con una Clase y recibir los eventos allí. Las limitaciones de withevents son las siguientes:

1. Una variable WithEvents no pueden declararse As Object
2. No pueden declararse As New.
3. No pueden declararse variables WithEvents en un módulo estándar. 4. 4. No pueden crearse matrices de variables WithEvents.

Saludos Ruri