(1)运用adodb.connection连接数据信息库
set conn=server.createobject("adodb.connection")

(2)运用 conn 目标开启数据信息库
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" server.mappath("数据信息库详细地址")

(3)adodb.recordset建立查寻目标
set rs=server.CreateObject("adodb.recordset")

(4)撰写SQL句子
sql="select * from [] order by pro_id desc"

(5)运用 rs目标开启 SQL句子 
rs.open sql,conn,1,1

(6)刚开始对SQL句子查寻內容开展循环系统
do while not rs.eof

rs.movenext

loop

rs.close

(7)插进数据信息、改动数据信息、删掉数据信息

insert into 表名(字段名名,字段名名...) values(值,值....)

update 表名 set 字段名名=值 [where 标准]

delete from 表名 [where 标准]

sql="SQL句子"

conn.execute sql