Public объекты - как правильно объявлять?

[vasiliy]

Народ подскажите, как правильно передавать объекты в VBA.
Задача следующая есть некоторый объект

Код: Выделить всё


Dim cn As New ADODB.Connection


и нужно сделать так чтоб он был доступен во всех формах, и во всех процедурах(событиях), как его нужно описать и где!
Я пробовал следующее создал модуль и записал в него что-то вроде

Код: Выделить всё


Public cn As New ADODB.Connection


но процедуры написаные в этом же модули не стали с ним работать
Спасибо всем кто откликнется...

[Avtopic]

У меня все видит.
Надеюсь, у вас стоит галочка на нужный References .

[vasiliy]

Хм... а как эта галка должна называться...

[vasiliy]

Короче я сам разобрался методом научного тыка....
А должно было быть так

Код: Выделить всё


Public cn As New ADODB.Connection
Sub connectDb(Logn, Pas)
   Set cn = CreateObject("ADODB.Connection")
   cn.Provider = "LCPI.IBProvider"
*******
ПРОПУСК
*******

Sub disconnectDb()
    cn.Close