hola... espero este ejemplo te ayude... es bastante sencillo pero tiene lo que necesitas
<%
Set Master = Server.CreateObject("ADODB.Connection")
Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datos.mdb"))
sSQL = "select * from usuarios order by usuario"
set RS = Master.Execute(sSQL)
sColor = "999999"
while not RS.eof
If sColor = "999999" Then
sColor = "ffffff"
Else
sColor = "999999"
End If
%>
<table width="600" border="0" cellspacing="1" cellpadding="1">
<tr>
<td bgcolor="<%=(sColor)%>"><%=(RS.fields("usuario").v alue)%></td>
</tr>
</table>
<%
RS.movenext
wend
%>