ASP读取ACCESS有关问题

ASP读取ACCESS问题
请教一个从ACCESS中读取数据的问题：
   把ACCESS中的数据全部输出，最大值用红色加粗字体显示，要怎么实现呢？先谢谢大家了。
------解决方案--------------------
1、先取出数据库里面数据的最大值maxValue
2、循环输出
For i = 1 To rs.RecordCount
   If rs("XX") = maxValue Then 红色加粗
    rs.MoveNext
Next
------解决方案--------------------

<%

sql="select * from tb"

set rs=conn.execute(sqlstr)

sql="select max(col1) from tb"

set rsmax1=conn.execute(sql)

sql="select max(col2) from tb"

set rsmax2=conn.execute(sql)

do while not rs.eof

	if rs("col1")=rsmax1(0) then

		response.write "<B><font color=#FF0000>" & rs("col1") & "</font></B>"

	else

		response.write rs("col1")

	end if

	if rs("col2")=rsmax2(0) then

		response.write "<B><font color=#FF0000>" & rs("col2") & "</font></B>"

	else

		response.write rs("col2")

	end if

	rs.movenext

loop

%>