 
<%
dim conn_link,connst
connst="DBQ="+server.mappath("link.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn_link=server.createobject("ADODB.CONNECTION")
conn_link.open connst
%>