Como intercalar colores a las celdas de las tablas?

[emajesus]

Puedes terminar tu código así -una vez desplegada tu tabla donde incluyes los registros de la BD-:


RS.MoveNext
Loop

RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing