<% Dim conn Dim connstr ON error resume next connstr="DBQ="+server.mappath("search.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr %>