dim cn as adodb.connection
dim tsql as string
set cn=new adodb.connection
cn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=d:\test.mdb"
tsql="insert into table1(Num,Pname,Sex) values('" + range("B1").value + "','" + range("B5").value + "','" + range("D5") +"')"
cn.execute tsql
set cn=nothing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024