How to disable checkbox

Using VI6 and SQL7. In the onclick event of the checkbox, how do I disable other checkboxes based on the value of the checkbox? A radio button will not work for this. Code is:

Do until rs1.eof

value=<%=rs1(fieldname)%>

rs1.movenext
loop

Thanks!
Regards, Cora