调用 DataEnvironment的问题

Question

我在工程里增加了一个 DataEnvironment设计器，其中代码如下
Private Sub DataEnvironment_Initialize()
Dim conn As New ADODB.Connection
Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
conn.Open strconn
End Sub
现在，我想在form1里面的command1事件调用这个连接，我用
Private Sub Command1_Click()
Dim sql As String
sql = "select * from login where name='" & Text1.Text & "' and password='" & Text2.Text & "'"
rs.Open sql, conn, adOpenDynamic, adLockPessimistic
If rs.EOF Then
MsgBox ("用户名和密码错误，请勿越权使用！")
Else
Form1.Hide
Form2.Show
End If
End Sub但是提示错误，请问高手，这个应该怎么调用，谢谢