如何在不同窗口中连接同一个access数据库的两个表

Question

想做个小系统，有注册登陆浏览等窗口，可是试了好几次都没成功，撒手不管好几天了。
通用声明：
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当我打开一个新窗口“注册”时，就怎么也连接不上，总是提示“要求对象”请高手们指点一下，新窗口应如何连接数据库

Answer 1

新增一个模块，将数据库的定义初始化等语句移到模块中即可在任意窗体中引用！假如模块为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.Closeend  sub