dim dbcn as ADODB.Connection
private sub form_load()
set dbcn=new connection
sSQL = "Provider=SQLOLEDB.1;User ID=SA;Password=xxx;Persist Security Info=False;User ID=SA;Initial Catalog=kcgl;Data Source=jhserver"
dbcn.open sSQL
end sub
private sub yourinsertsub()
SQL = "INSERT INTO 通用字典 (name,DicTypeID) VALUES('XXXx',nnn)"
dbcn.Execute SQL
end sub
private sub form_unload()
dbcn.close
set dbcn=nothing
end sub