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.MoveNext
WEND
%>