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

编号的数据类型？

有没有执行这个updata命令。

0000要加单引号

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

Dim db As DataBase = New DataBase
            Dim strSQL As String = ""
            strSQL = "update 票据种类 set"
            strSQL =strSQL &  "票据类别=' " &  Me.TextBox2.Text.tostring & "', where  编号 = 0000"
    　　 db.RunDelOrInsSQL(strSQL)