Как указать текущий коннекшн в VBA, Access2003

[AndreyG_80]

Доброго времени суток.

Что-то я никак не могу разобраться как указать текущий конект в VBA.
Я открываю рекордсет, помимио запроса нужно указать конект.

Как установить новый конект я знаю, а вот как указать уже существующий?

[VVitafresh]

Если в Access VBA, можно так:

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

Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset


Public Syb Test()
   ....
   Set cn = Application.CurrentProject.Connection
   Set rs = New ADODB.Recordset       
   rs.Open "SELECT ... ", cn, adOpenStatic, adLockReadOnly
   ....
End Sub

[AndreyG_80]

Большое спасибо