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