'注意数据库中有字段user,password均为字符型,已有1条记录user=system,password=0
Set Myadoconn = New ADODB.Connection
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\DATA\" & Database & ".mdb" & ";Jet OLEDB:DataBase Password=" & Password
Myadoconn.Open Connstr
myadoconn.execute "select * from S_user where user='system'"
myadoconn.execute "delete from S_user where user='system'"
myadoconn.execute "insert into S_user (user,password) values('system','0')"
myadoconn.execute "update S_user set password='2' where user='system'"
此四条SQL语句在天星海沙数据转换器中(网上下载数据转换软件)又能正确运行