最简单的办法就是用shell
创新互联专注于海城网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供海城营销型网站建设，海城网站制作、海城网页设计、海城网站官网定制、微信小程序服务，打造海城网络公司原创品牌,更为您提供海城网站排名全网营销落地服务。
语句
添加和创建注册表项
shell
"cmd
/c
reg
add
hklm\software\myco
/v
data
/t
reg_binary
/d
fe340ead"
删除注册表项
shell
"cmd
/c
reg
delete
hklm\software\myco\myapp\timeout"
删除注册表项
timeout
及其所有子项和值
具体语法请在cmd中输入
reg/?
在VBA中，在调用控件前写入shell +注册控件语句。
如果我理解正确的话，有下列方法
方法一：在VBA模块中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx") 自己改一下变量。本人较早前用过的方法。
方法二：将所有注册组件写进.bat批处理文件中，并加入开机自动运行，或用shell去运行.bat
方法三：微软官方support
最后一段简单翻译一下：RegComCtl32和UnRegComCtl32是用户自定义名称；例中组件是默认在windows/system路径下，如果不在该路径下，请自己添加；DllRegisterServer注意字母大小写。
改为：
sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"
写两个函数，一个检测是否有重复用户，第二个插入
检测属用户是否存在
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
