NOTHING这个管理员很烂，很懒，多打几个代码也不肯，如果排除软件园不肯发工资的原因，那就是这个人特懒，看看它的回答，莫名其妙，多打一个字都嫌累，还做什么管理员，现在是不懂的才来求教，连回答都不全面，别人还来干什么？来了还是白来，不如不来呢。如果还用它，那只能祝立花软件园越办越差，早日倒闭。

不好意思，立华软件园只有这一个管理员
你如果要源代码，请立即离开，我只能提供编程的思路。
如果你觉得你没有能力完成源代码，请不要选择编程这个行业，因为你没有能力。
如果告诉你用哪些函数，你不懂得看文档，哪么请你离开编程这个行业，没有看文档能力的程序员没有一家公司欢迎。
这个行业中，别人只能给你指个方向，做事情的都是自己。
你只问了一个问题，实际上我已经按你的操作测试了一下，并回答了你，但我并不会把源代码发给你，你收到了源代码只知其然不知所以然，这样对你有用吗？

支持Nothing

晕了。。。。。
好久没来，居然发生这种事。

跟踪了下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是立华软件园的老大，恐怕你的小算盘要落空了。。。。

强 顶