Sample code Read operation:
<html>
<Title> Read MS Access using VBScript </Title>
<body>
<h2>Employee List, sorted by Employee ID.</h2><br>
<TABLE border="1">
<TR>
<TD><B>ID</a></B></TD>
<TD><B>Name</a></B></TD>
</TR>
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("Employee.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT EmpID, EmpName "&_
"FROM EmployeeTable "&_
"ORDER BY ID;"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<TR>
<TD><%=RS("EmpID")%></TD>
<TD><%=RS("EmpName")%></TD>
</TR>
<%
RS.MoveNext
WEND
RS.Close
set RS = nothing
MyConn.close
set MyConn = nothing
%>
</TABLE>
</body>
</html>