晕了。。。。。
好久没来，居然发生这种事。
跟踪了下xiao173612 的所谓NOTHING不回答或者回答不全面的帖子，无语了，真TMD无语了。。。。。。
Adodc1.RecordSource = "select * from 客户资料表" '连接数据库的message表文件
If Command1.Caption = "添加" Then
Command1.Caption = "保存"
Text1.SetFocus
Text1.Text = ""
Else
Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("房间编号").Value = Text1.Text
Adodc1.Recordset.Update '保存
VB代码我不是很懂，但是看你代码的字面意思，是想添加新纪录，并且保存。。。。。
可是给出的SQL代码是“select * from 客户资料表”，
你知道不知道“select * from 客户资料表”啥意思？
如果我是NOTHING ，我会很干脆的告诉你，你不适合做这个行业，NOTHING 还好心的告诉了你“Adodc1.RecordSource = "客户资料表" ' 不要使用SQL语句，你那条语句是查询的，不能输入新记录”，彻底无语了，莫非NOTHING要从最最基础的讲起，那TMD要你干吗啊。。。。。。
顺便告诉你，NOTHING是立华软件园的老大，恐怕你的小算盘要落空了。。。。
