这个代码怎么改?

[sohou]

<%
connstr = "DBQ=" + server.mappath("../DataBase/job#.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn=Server.createobject("ADODB.CONNECTION")
conn.Open connstr

Function CloseDatabase()
conn.Close
Set conn=Nothing
End Function
%>


改成SQL数据库连接的方式.