dim result
result = 1
sql = "SELECT deneme FROM basaran"
rs.open sql,conn
Do While not rs.eof
         result = result * rs("deneme");
rs.MoveNext
Loop
Bunun gibi birşey istiyorsunuz galiba. Test etmedim ama çalışması gerekiyor. Kolay gelsin.