连接远程access

<%
'----------access连接
dim conn
dim connstr
dim db
'更改数据库名字
db="http://lssky.net/dispuser.asp?id=1157";
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    connstr="rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") & ";Jet OLEDBatabase Password=326159;"
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.open connstr

'------sql 连接
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "driver={sql server};server=127.0.0.1;uid=**;pwd=**;database=*****"
%>