这是我查询的语句,执行是提示 “对象变量或with 块变量为设置”。帮忙找一下问题在那,怎么改?
Private Sub Command1_Click()
 Dim conn As Object, rs As Object, m As String, t As String
t = InputBox$("请输入学号", "查找窗")
rs.Open "select * from 学生信息表", conn, adOpenStatic, adLockReadOnly, adCmdText
  If rs.EOF = True And rs.BOF Then
    m = MsgBox("请输入学号", vbExclamation)
    Text1.Text = ""
    Text1.SetFocus
 Else
    MsgBox "无此学号!", vbOKOnly, "提示"
 End Ifrs.CloseEnd Sub