系统维护--用户管理--当注册新用户的时候 如果我注册了已经在数据库存在的用户名 他还是会提示注册成功，这样导致数据库当中的用户名不唯一了，请问怎么解决？
Dim a
Private Sub Command1_Click()
    Adodc1.ConnectionString = cnn.ConnectionString
    Adodc1.RecordSource = "select * from usertb"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveLast                         '将记录移动到最后一条
        Text6.Text = Val(Adodc1.Recordset.Fields("ID")) + 1
    Else
        Text6.Text = 1
    End If
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
        MsgBox "输入不完全!", 48
    Else
        If Text2.Text = Text3.Text Then
            cnn.Execute ("insert into usertb values(" & Text6 & ",'" & Text1 & "','" & Text2 & "')")
            MsgBox "注册成功!!", 48
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Unload Me
        Else
            MsgBox "两次输入的密码不一致,请您确认后重新输入", 48
            Text2.Text = ""
            Text3.Text = ""
            Text2.SetFocus
        End If
    End If
End Sub
这个代码里面并没有判断用户名是否已经存在的，请问如何修改？