vb 错误3021

Dim no As String
Dim cn As New ADODB.Connection
Dim rs  As New ADODB.Recordset
Dim rs1  As New ADODB.Recordset
Dim sq1 As String
Dim sq2 As String
Private Sub Command1_Click()
  no = InputBox("请输入问题号", "问题号")
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\教务\db1.mdb"
  sq1 = "select* from liuyan  where no='" & Trim(no) & "'"
  rs.Open sq1, cn, 1, 1
  If rs.EOF = False Then
    MsgBox "没有该记录！"
   
  Else
    Text1.Text = rs("no")
    Text2.Text = rs("liuyan")
    Text3.Text = rs("huida")
  End If
  rs.Close
  cn.Close
End Sub

Private Sub Command2_Click()
  End
End Sub
错误内型：请教大哥那地方错了
数据库：

---

是否是no字段的数据类型有问题。

---

应该不是吧

---

  If rs.EOF Then
    MsgBox "没有该记录！"
   
  Else
    Text1.Text = rs("no")
    Text2.Text = rs("liuyan")
    Text3.Text = rs("huida")
  End If