Lo estás haciendo mal, tendrías que utilizar esta forma:
1. Te conectas a la BBDD
2. If Rs.BOF And Rs.EOF Then
'Miramos si hay registros
3. Si no hay registros, no pintes nada
4. else
'Si hay registros hacemos lo siguiente
5. contador = 1
'Reiniciamos el contador
6. While Not rs.EOF
'Mientras hayan registros ves pintando 1 tabla por registro
7. <TABLE> .... etc ... <%=rs.Fields("loquesea")%> ... etc ... </TABLE>
8. Rs.MoveNext
'Saltamos al siguiente registro (es decir, vamos al punto 6)
9. Wend
'Cerramos el bucle de Tablas
10. End If
'Cierras comprobación de que haya registros en la consulta SQL
Y ya está, no necesitas más.
Por cada registro que haya en la BBDD se creará una nueva Tabla con sus datos correspondientes