一个AddNew时的报错

Question

Textadduser.Text = ""
   Textadduser.SetFocus后面加上exit sub因为你执行文本框获得焦点后，程序继续会往下走，没有碰到什么退出sub的命令，当然就会使文本框为空值，并且保存进去也是空值

Answer 1

Textadduser.Text = ""
   Textadduser.SetFocus后面加上exit sub

Answer 2

确实你们所说的此处是我所没考虑好的一个问题，但是当我在测试运行时输入的
用户名没有重复，也没有出现MsgBox "对不起，此用户已存在！（用户名相同的为同一记录！）", 16, "请使用其他用户名！"的提示。说明程序是在没有运行此段
的情况下出的错啊！
再说就算是此处的问题那用户信息应该是添加成功后再报错的，库中应该是
有添加的信息的，可是我检查过数据库，并没有添加进去。