注册一个新用户的代码是怎么样的帮我看一下呢?

Private Sub Command1_Click()
Dim i%
   sqls = "select * from data_users"
   rs.CursorLocation = adUseClient
   rs.Open sqls, conn, adOpenKeyset, adLockPessimistic
   x = rs.RecordCount
   rs.MoveFirst
   For i = 1 To x
      If Text1 = rs.Fields("用户名").Value Then
            MsgBox "该用户名已被注册", vbOKOnly + 32, "出错"
            GoTo a
      End If
      rs.MoveNext
   Next i   rs.MoveFirst
   For i = 1 To x
      
      If Text1 = "" Or Text2 = "" Then
          MsgBox "请输入有交的数据", vbOKOnly + 32, "出错"
         
      End If
      
      If Text2 <> Text3 Then
          MsgBox "密码不一致", vbOKOnly + 32, "出错"
         
      End If
      
      If Text2 = Text3 And Text1 <> "" And Text2 <> "" And Text1 <> rs.Fields("用户名").Value Then
          
          conn.Execute "Insert into data_users(用户名,密码) values('" & Text1.Text & "','" & Text2.Text & "')"
          MsgBox "恭喜您，注册成功，请您保管好帐号跟密码", vbOKOnly + 64, "注册成功"
         
          Command2.Visible = False
       
      End If
a:
End Sub