Вот исходник коннекта к Аксессу:
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "DBQ=" & Server.Mappath("db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM company WHERE " & where & " like '" & search & "'"
rs.Open SQL, cn, 1
rs.pagesize=PageSizes
if Request.QueryString("Page") <> "" then
Page = CInt(Request.QueryString("Page"))
else
Page=1
end if
If Page > PageCounts Then
Page = PageCounts
End If
If rs.PageCount > 0 Then
rs.AbsolutePage = Page
Else
нада тоже сделать на SQL
