求助啊~~~~`~~~~

Dim st As String
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection

Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text <> "" Then
MsgBox "请输入用户名"
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" And Text1.Text <> "" Then
MsgBox "请输入密码"
Text2.SetFocus
Exit Sub
ElseIf Text1.Text = "" And Text2.Text = "" Then
MsgBox "请输入用户名与密码"
ElseIf Text1.Text <> "" And Text2.Text <> "" Then
Set con = New ADODB.Connection
st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False"
con.Open st
rs.Open "select * from 表1", con
rs.Find "用户名='" & Trim(Text1.Text) & "'"
If rs.EOF = True Then
MsgBox "输入的用户名不存在，请重新输入"
Text1.SetFocus
Exit Sub
End If
rs.Find "密码='" & Trim(Text2.Text) & "'"
If rs.EOF = True Then
MsgBox "输入的密码不正确，请重新输入"
Text2.SetFocus
Exit Sub
End If
Form2.Show
End If
End Sub



rs.Open "select * from 表1", con　　提示出错，对象变量或With块变量未定义。这又是哪里不对啊，我快晕了