Ho fatto cosí alla fine, e funziona:

codice:
<%
dim num, col
num=3
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " &_
         "Data Source="& Server.MapPath("/mdb-database/db.mdb") &"; " &_
         "Jet OLEDB:Database Password=" & "xxx" & ";"
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from tabella ")
%>
<table border="1" width=120*<%'num'%> align=center><tr>
<%
col = 0
Do Until objrs.EOF
  If Col = 4 Then 
  Response.Write"</tr>"
  col = 0
  %>
    <td>">" width="120" height="70" border="0" /></td>
  <%
  else
  %>
    <td>">" width="120" height="70" border="0" /></td>
  <%
  col = col + 1
  end if
objrs.movenext
loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>
Grazie per l'aiuto, ho studiato un po' la tua soluzione e alla fine ho capito cosa volevi fare