写两个函数，一个检测是否有重复用户，第二个插入
成都创新互联公司于2013年开始，先为泽库等服务建站，泽库等地企业，进行企业商务咨询服务。为泽库企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
检测属用户是否存在
private function checkUser(byval uname as string) as boolean
dim sql as string = "select * from [user] where username=" uname
dim cmd as sqlcommand = new sqlcommand(sql,conn)
dim read as sqldatareader = cmd.excutereader
dim result as boolean = read.hasrows
cmd=nothing
return result
end function
新增用户
private sub adduser(byval uname as string,byval password as string)
if checkUser(uname)
messagebox.show("用户已存在")
exit sub
end if
try
dim sql as string = "insert into [user](username,password) values(@uname,@upass)"
dim cmd as sqlcommand = new sqlcommand(sql,conn)
cmd.parameters.add("@uname",sqldbtype.varchar).value=uname
cmd.parameters.add("@upass",sqldbtype.varchar).value=password
cmd.ExecuteNonQuery
cmd=nothing
messagebox.show("用户添加成功！")
catch ex As Exception
messagebox.show("用户添加失败！" + ex.message)
end try
end sub
Dim StrCon1 As String
Dim Con1 As New System.Data.OleDb.OleDbConnection
dim Cmd1 as System.Data.OleDb.OleDbCommand
dim tkSQL as String
Strcon1="Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" "D:\TEMP.ACCDB" "'"
'数据库连接字符串，指向您数据库
Con1.ConnectionString=StrCon1
Con1.Open
tkSQL="INSERT INTO UserList (UserName,PW) Values('" Me.TxtText1.Text "','" Me.TxtText2.Text "')"
'SQL语句,内容与您的数据库中对应
Cmd1=New System.Data.OleDb.OleDbCommand(tkSQL,Con1)
cmd1.ExecuteNonQuery
'执行
'以下向Combobox中添加Item
Dim DA1 As System.Data.OleDb.OleDbDataAdapter
dim DT1 as new System.Data.DataTable
Dim T1 As Integer
tkSQL="SELECT * FROM UserList"
DA1=New System.Data.OleDb.OleDbDataAdapter(tkSQL,con1)
DA1.Fill(DT1)
For T1=0 To dt1.Rows.Count-1
me.comboBox1.Items.Add(Dt1.Rows(T1)(0))
Next T1
Con1.Close
原理有很多，这里实现的是在文件结尾追加配置字符的方法。
程序下载，右键另存为rar文件：/uploadfile/200510/20051017144056534.gif就可以实现注册机了。
注册机就是批量生成相同功能的而内部配置不用程序文件的程序，这个程序的好处是不用在修改源代码重新编译的情况下产生新的文件，广泛应用与木马行业。
注册机是一种破解软件，它的用途基本在两个范围之内:
一个就是由于一些软件涉及版权问题，要完全使用的话需要注册，或者有试用期限限制，或者只有注册之后才可以享受全功能。第二个就是某些网站、网页通过正常注册用户会很复杂，或者是网页、网站管理员需要大量注册内测用户的时候就可以用注册机来达到简单快速的注册用户了。
总结如下：
注册机则解决了这一问题，注册机根据其相应解决的软件而有不同的形式，一般需要脱壳软件、内存查看软件和反组译器等破解工具作为辅助。大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。
大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。
改为：
sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"
