Dim db As DataBase = New DataBase
            Dim strSQL As String = ""
            strSQL = "update 票据种类 set"
            strSQL += "票据类别='" + Me.TextBox2.Text.Trim + "',"
            strSQL += " where 编号 = 0000"
    　　 db.RunDelOrInsSQL(strSQL)
请问为什么运行不能更新！

我加了单引号，还是不能更新数据!急急!