Has de definir el modo en que se mueve el cursor por el Recordset.
Código:
<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_datos.mdb"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset ' Por defecto adOpenForwardOnly (sólo hacia adelante)
SQL = "SELECT * FROM chat"
set rs= conexion.execute(sql)
%>
Un saludo.