Question

vb编程建立新用户注册窗体使注册成功的用户名和密码存入access数据库，为什么总是取代原有数据库里面的用户

如题，本来access有11和22两个用户信息，信注册一个33，就会取代11，到底咋回事儿啊，求大侠解啊我的代码如下：Dim con As New adodb.Connection '声明一个数据连接对象变量，用于打开数据库
Dim rs As New adodb.Recordset '声明一个数据集对象变量，用于打开数据表

Private Sub Command2_Click()
Me.Hide
End Sub

Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATABASE.MDB;Persist Security Info=False"
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from 客户信息表", con, 1, 3
End Sub
Private Sub Command1_Click()

If Text1 <> "" Then
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from 客户信息表 where 用户名='" & Text1 & "'", con, 1, 3
If rs.BOF = False And rs.EOF = False Then
MsgBox "用户已存在!"
Exit Sub
End If
If Text10 = "" Then
MsgBox "密码不能为空！"
Exit Sub
End If
Else
MsgBox "用户名不能为空！"
Exit Sub
End If
Adodc1.Recordset.AddNew
MsgBox "注册成功，请返回登陆"
End Sub
并且可以运行，坐等大侠解救

Answer 1

如果用text1.text录入用户名，用text2.text录入密码：用下面方法添加，否则直接覆盖前面的记录。
Adodc1.Recordset.AddNew
Adodc1.Recordset("用户名")=text1.text
Adodc1.Recordset("密码")=text2.text
Adodc1.Recordset.Update

追问

大侠，咋能让注册新用户的时候文本框都是空啊，我的打开全是之前注册的一个用户的信息，刚才那个我还没调试好呢，能不能加你Q啊

追答

你看一下text的属性，是否其text值不为空

Answer 2

留下邮箱给你一个源码.

追问

474619446@qq.com多谢大侠，多谢

追答

以发送.