Ситуация:
В приложении есть LoginDialog, при помощи которого я создаю подключение к БД. Подкючается нормально, но когда я из другой формы в качестве ActiveConnection для Recordsetа указваю это соединение, программа говорит, что не открыть Recordset. В режиме отладки значение переменной подключения = "empty". что я делаю неправильно. Вот код:
обработчик события LoginDialog:

Public Cnn As ADODB.Connection
Dim Uid As String
Dim Pwd As String

Private Sub cmdOK_Click()
On Error GoTo Errorlabel
Uid = txtUserName
Pwd = txtPassword
Set Cnn = New ADODB.Connection
With Cnn
.ConnectionString = "PROVIDER=MSDASQL;" & _
"DSN=1depo;" & _
"uid=" & Uid & ";" & _
"pwd=" & Pwd & ";" & _
"database = 1depo"
End With
Cnn.Open Cnn
If Cnn.State = adStateOpen Then
OK = True
Me.Hide
Else
Errorlabel: MsgBox "Не получилось"
End If
End Sub

Вот попытка открыть Рекордсет:
Dim rsDocuments As ADODB.Recordset
Set rsDocuments = New ADODB.Recordset
With rsDocuments
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "{Call spDocumentS}"
.ActiveConnection = Cnn
.Open
End With

Ругается на строку ".ActiveConnection = Cnn"
Помогите, плз

точно работает. спасибо