关于VB 求助

Private Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Then
        MsgBox "不能修改空记录信息", vbInformation
    Else
        Dim i, sql As String
        i = MsgBox("是否修改此条记录！", vbYesNo + vbOKOnly)
        If i = vbYes Then
            sql = "update books set 书籍编号='" & Text1 & "',书籍名称='" & Text2 & "',类别='" & Combo1 & "',类别代码='" & Text3 & "',作者='" & Text4 & "',出版社='" & Text5 & "' ,出版日期='" & DTPicker1 & "',订购价格='" & Text6 & "',ISBN='" & Text7 & "',登记天数='" & Text8 & "',借书数量='" & Text9 & "',复本数='" & Text910 & "'  where 书籍编号 like '" & Text1.Text & "'"
            cnn.Execute (sql)
            Adodc1.Refresh
            clear
        Else
            On Error Resume Next
            rs.CancelUpdate
        End If
    End If
End Sub这是一段修改书籍信息的代码。提示错误为：“子程序或函数未定义”我不会调试，请大师们帮忙修改一下，小弟不甚感激！急需！