état access vb

Bonjour aidez moi svp. je suis entrain de créer un projet sousVB 6.0 lié à une BDD access connexion par module

j'essaie d'ouvrir les états crées sur la bdd depuis vb en écrivant le code suivant:
dans le module vb:
option explicit
global MesEtats as report
Public sub ouvrir
set MesEtats = new report
MesEtats.application.opencurrentDatabase,"nom de la connexion", false
MesEtats.application.DoCmd.openreport "nom état",acviewpreview
et dans la feuille vb concernée j'ai crée un bouton de commande sous lequel j'ai écrit le code suivant:
MesEtats.visible=True
MesEtats.application.DoCmd.Maximize

et lors de l'éxécution quand je clique sur le bouton de commande s'affiche le message d'erreur suivant:
Erreur d'éxécution '91'
Variable objet ou variable bloc With non définie

sachant qu'au moment de l'activation de la feuille s'exécute automatiquement la procédure publique ouvrir chargée d'ouverture de la bdd et l'état.

A votre avis que dois-je faire? et d'où vient l'erreur.

je compte bcp sur votre aide. c'est urgent
merci d'avance.