Private Sub cmdSave_Click()
g_strSql = "update frdb set introduction = '" & txtFrdb.Text & "' where frdb='" & Label1.Caption & "'"
Adodc1.RecordSource = g_strSql
Adodc1.Refresh
MsgBox "保存修改完毕!", vbOKOnly, "提示"
Unload Me
End Sub

是不是update的问题
thanks

who can help me?

frdb这个表是视图还是基本表 ？
有没有完整性约束？
另个。。。我硬是没看懂你是些引号是怎么对应的。。。

'" & txtFrdb.Text & "' where frdb='" & Label1.Caption & "'"

？

"update frdb set introduction = '" & txtFrdb.Text & "' where frdb='" & Label1.Caption & "'"

提示好像是数据库没有打开，好久没用ADODC控件了，一直在用ADO对象模型

能够写入数据库，后台能够查到更新了
但是会报错
我不知道为什么？

frdb是一张表，没有完整性约束

这个我就不太清楚了。现在一直在用ADO对象模型，没用ADODC控件，关于ADODC的好多错误都不知道错在哪

where frdb= 'Label1.Caption '
frdb是一张表，可以这样写吗？

可以阿，后台数据库已经写进去了
但是前台会报错的

where frdb= 'Label1.Caption '
这里的frdb是数据库中的一个表名，还是表frdb中的一个字段?