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

Question

Dim st As String
Dim rs As ADODB.Recordset
Dim con As ADODB.ConnectionPrivate 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 Subrs.Open "select * from 表1", con　　提示出错，对象变量或With块变量未定义。这又是哪里不对啊，我快晕了
  

Answer 1

Set rs = New ADODB.Recordset   '先要实例化

Answer 2

在定义时最好这样写：
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection

Answer 3

像这类错误一般是没有对对象进行实例话而导致的，正如楼上所说，在使用cn和rs这两个对象变量之前，你必须对他们进行后期实例化。如：
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
或者在声明对象变量之时就对对象进行前期的实例化，如：
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection

Answer 4

......
  Set rs = New ADODB.Recordset
  rs.Open "select * from 表1 Where 用户名='"  & Trim(Text1.Text) & "'", con
      If rs.EOF Then
        MsgBox "输入的用户名不存在，请重新输入"
        Text1.SetFocus
        Exit Sub
      End If
      If rs.!密码 <> Trim(Text2.Text) Then
        MsgBox "输入的密码不正确，请重新输入"
        Text2.SetFocus
        Exit Sub
      End If
  rs.Close

Answer 5

set rs=new adodb.recordset
来晚了,但愿能分到分啊