如何在不同窗口中连接同一个access数据库的两个表
想做个小系统，有注册登陆浏览等窗口，可是试了好几次都没成功，撒手不管好几天了。
通用声明：
Dim rs1 As New ADODB.Recordset
Dim cnn As ADODB.Connection
主窗口连接数据库代码如下：
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; data source= " & App.Path & "\tiku.mdb "
Set cnn = New ADODB.Connection
cnn.Open strcnn
stra = "select * from timu "
rs1.Open stra, cnn, adOpenKeyset, adLockOptimistic
……
rs1.Close
当我打开一个新窗口“注册”时，就怎么也连接不上，总是提示“要求对象”
请高手们指点一下，新窗口应如何连接数据库
[解决办法]
新增一个模块，将数据库的定义初始化等语句移到模块中即可在任意窗体中引用！
假如模块为Module1，将数据库相关语句移到里面，注意要用public代替 dim
public rs1 As New ADODB.Recordset
public cnn As ADODB.Connection
'连接数据库代码如下：
Public sub IniData() '注意！必须增加此公用sub来连接数据库，名称可自己设定
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; data source= " & App.Path & "\tiku.mdb "
Set cnn = New ADODB.Connection
cnn.Open strcnn
stra = "select * from timu "
rs1.Open stra, cnn, adOpenKeyset, adLockOptimistic
……
rs1.Close
end sub
