VBA代码问题

我有一个信息输入代码，可是当我运行窗口时提示“要求对象”，后又提示

 运行时错误“91”

对象变量或WITH块变量未设置

这是什么原因，怎么调整。代码如下：

Private Sub Command33_Click()
  Set rs = New ADODB.Recordset
  If Text1.Value = "" Then
  MsgBox "请你输入要想添加的问题的问题种类以及相关的所有信息！", vbOKOnly + vbExclamation, "警告！"
  Text1.SetFocus
  Exit Sub
  Else
  sql = "select * from chaxun where 问题种类='" & Trim(Text1.Value)
  sql = sql & "' and 发生日期='" & Trim(Text2.Value) & "' and 机种名='"
  sql = sql & Trim(Text3.Value) & "' and 品名='" & Trim(Text4.Value)
  sql = sql & "' and 品目CODE='" & Trim(Text5.Value) & "' and LOT No.='"
  sql = sql & Trim(Text6.Value) & "' and 不良项目='" & Trim(Text7.Value)
  sql = sql & "' and 问题内容='" & Trim(Text8.Value) & "'"
  Set rs = TransactSQL(sql)
  If rs.EOF = False Then       ’提示调试地方
  MsgBox "该问题的记录已经存在，请核实后再添加！", vbOKOnly + vbExclamation, "警告！"
  Text1.SetFocus
  rs.Close
  Else
  sql = "select * from chaxun"
  Set rs = TransactSQL(sql)
  rs.AddNew
  rs.Fields(0) = Trim(Text1.Value)
  rs.Fields(1) = Trim(Text2.Value)
  rs.Fields(2) = Trim(Text3.Value)
  rs.Fields(3) = Trim(Text4.Value)
  rs.Fields(4) = Trim(Text5.Value)
  rs.Fields(5) = Trim(Text6.Value)
  rs.Fields(6) = Trim(Text7.Value)
  rs.Fields(7) = Trim(Text8.Value)
  rs.Update
  rs.Close
  MsgBox "该记录已经成功添加！", vbOKOnly + vbExclamation, "添加结束！"
  Call init
  End If
 ' End If
End Sub