試驗一下ON-FLY 的連接

<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("sample.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM 您的表"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<%=RS("YOUR_FIELS_NAME")%>

<%
RS.MoveNext
WEND
%>