VB注册问题

Question

 一个 用户控件  2个密码控件 一个 按钮控件  2个密码控件用来验证密码 而且用户控件需要验证是否有用户名存在 然后注册连接到MSSQL 2000的data数据库中的 user表的 user和 pass中去  谁能否教我一下 如何搞 
  谁能不能给我个完整的代码 谢谢 今天试了很多次 就是有问题 

Answer 1

不把帐户和密码控件搞上 在哪填帐号密码呢？
然后写如SQL里

Answer 2

INSERT INTO user (user, pass) VALUES ('张二毛', 'PA55W0RD')

Answer 3

'引用microsoft actionX data objects 2.* library
'一个 用户控件：text1   2个密码控件：text2、text3 
    Dim cn  As New ADODB.Connection
    Dim rs   As New ADODB.Recordset
    Dim sql  As String
    Dim i  As Integer
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;Data Source=."
    sql = "select * from user where user='" & text1.text & "'"
    cn.Execute sql, i
    if i=0 then
       sql = "INSERT INTO user (user, pass) VALUES ('" & text1.text & "','" & text2.text & "')"
       rs.Open sql, cn, adOpenKeyset, adLockOptimistic
    else
       msgbox "用户名已存在，请重新注册"
    end if
    rs.close
    cn.close