对象关闭时，不允许操作

[tangzhh203]

本人想在通用模块中连接数据库，就编写了如下代码：

通用模块：
Public conn As New ADODB.Connection
Sub Main()
Dim connstr
Set conn = New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
onnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb工程\xs.mdb;Persist Security Info=False"
conn.Open connstr
End Sub

窗体中：
Public rs As New ADODB.Recordset
Private Sub Command1_Click()
Set rs = conn.Execute("select * from class")
MsgBox "数据库连接成功"
End Sub

可是编译的时候出现：对象关闭时，不允许操作
错误出现的代码是：Set rs = conn.Execute("select * from class")
请问是怎么回事？

[canoe982]

估计是onnstr 存在总是，连接并没有成功打开。

[ap0206315]

先调用 Main()