Question

VB+SQL中，如何解决VB向SQL数据库添加新记录

我用vb做注册新用户界面的时候，首先判断该用户是否存在，若存在则重新申请输入，若不存在则增加该新用户。
判断该用户是否存在的语句是：
Do While Not Adodc2.Recordset.EOF

If Trim(Adodc2.Recordset.Fields("用户名")) = Trim(Text1.Text) Then
MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Else
Adodc2.Recordset.MoveNext

End If
Loop
若该用户名还未在表中出现，则增加该用户信息的语句是：

Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc2.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc2.Recordset.Fields(2) = Trim(Text5.Text)
Adodc2.Recordset.Fields(3) = Trim(Text4.Text)
Adodc2.Recordset.Update
Adodc2.Recordset.Close
MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"
Form1.Show 1 ‘增加新用户名之后显示登录窗口登录
本人是VB初学者，请说的尽量详细一点，在线等，谢谢

Answer 1

Adodc2.RecordSource = "select * from 表 where 用户名 like '" & Text1.Text & "'"
Adodc2.Refresh
If Not Adodc2.Recordset.EOF Then
MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Else
'若该用户名还未在表中出现，则增加该用户信息的语句是：

Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc2.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc2.Recordset.Fields(2) = Trim(Text5.Text)
Adodc2.Recordset.Fields(3) = Trim(Text4.Text)
Adodc2.Recordset.Update

MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"
Form1.Show 1 ‘增加新用户名之后显示登录窗口登录
endif