Visual Basic - Problemas con ado

hola que tal... tengo un problema... y me gustarian que me den una mano ..les cuento... estoy actualizando mi sistema de dao o ado... hice la conexion y todo bien..pero..cuando quiero poner todas las declaraciones en un modulo me surgieron errores..por ejemplo..tuve que crear un modulo de clase..y ahi instancie
Public cnn As ADODB.Connection
Public WithEvents rst As ADODB.Recordset
y despues un modulo simple..ya que en el module clase no me dejaba hacer esto:
public Const acceso As String = "C:\Documents and Settings\maxi\My Documents\bd2.MDB"
y luego en el form declare esto:
Const sPathBase As String = "C:\Documents and Settings\maxi\My Documents\bd2.MDB"

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & module1.acceso & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
rst.Open "SELECT * FROM clientes", cnn, adOpenDynamic, adLockOptimistic
...el problema es...que si hago todo asi... cuando en un boton pongo:
if rst.eof and rst.beof then....(me tira error 424 "falta de obejto") pero si declaro todo en el form..o sea ..declaro lo que declare en los modulos.. funciona barbaro..alguien me puede tirar un soga... desde antemano.. muchas gracias

declara el recordset sin el WithEvents a ver si así te funciona !