Error: Object reguired, когда пишу НЕ на load форме)

У меня проблема вышла с Connection
мой код:

Option Explicit
Private cn As New ADODB.Connection
Private cmd As New ADODB.Command
Private rs As New ADODB.Recordset
Private ServerName As String, DatabaseName As String, _
UserName As String, Password As String

а на лоад форме:

Private Sub Form_Load()
ServerName = 'TEST'
DatabaseName = 'MCP'
UserName = 'sa'
Password = 'sa'
cn.Provider = 'sqloledb'
cn.Properties('Data Source').Value = ServerName
cn.Properties('Initial Catalog').Value = DatabaseName
cn.Properties('User ID').Value = UserName
cn.Properties('Password').Value = Password
cn.Open
End Sub

а после зтого если я напишу это:
rs.Open 'SELECT * FROM TypeOFExam', cn, adOpenStatic, adLockOptimistic, adCmdText
cn.CursorLocation = adUseClient
Set DataGrid1.DataSource = rs
rs.Close
работает

а когда я напишу это на другой форме geneates error:Object Reguired

Как я могу делать это:
1)Я же обявил переменные private
2) Как я могу использовать одну connection на всем формах проэкта
3) Как я могу обявит connection что такие проблемы больше не вышли
Спасибо заранеее

0

Нужно закрывать cn.close

а лучше
использовать DataEnviromnet
если его переименуем в Conect
а Connection1 тоже в Conect
В свойствах Connection1 нужно выбрать поставщика и подключиться к базе

при загрузке меню, (основной формы в общем один раз или закрывать потом) открывать соединение
Conect.Conect.Open
а при окончании работы
Conect.Conect.close
а по ходу работы обращаться
Set rs = New ADODB.Recordset
With rs
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = Conect.Conect
End With
rs.Open 'select * from student '

Я обычно для глобальных переменных использую публик а не привате - все работает.

0