Question

VB做了个添加用户的界面，但是显示已经添加成功，数据库里还是没有记录，求高手指教~~~~~~~~~

界面有三个标题框，三个文本框，两个command按钮
代码如下
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Then
MsgBox "用户名不得为空", , "提示"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "密码不得为空", , "提示"
Text2.SetFocus
Else
If Text2.Text <> Text3.Text Then
MsgBox "两次输入密码不一致", , "提示"
Text3.SetFocus
Text3.Text = ""
Else
Adodc1.RecordSource = "select * from 用户表 where 用户名='" & Trim(Text1.Text) & "'"
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
MsgBox "用户名已存在", , "提示"
Else
Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc1.Recordset.Update
MsgBox "用户添加成功！", , "提示"
End If
End If
End If
End If
End Sub
运行后其他都没问题，但是虽然显示用户添加成功退出后去数据库看还是没记录

Answer 1

在Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)
这句前面写一行Adodc1.Recordset.AddNew

Answer 2

Adodc1.Recordset.UpdateBatch
Adodc1.Refresh

Answer 3

Adodc1.Recordset.UpdateBatch Adodc1.Refresh