problema con funcion y base de datos

[chs2]

Hola, tengo el siguiente problema, estoy tratando de hacer un ciclo q debe realizarse dependiendo del numero de semanas q se tenga en la base de datos. Lo hago con una funcion, pero me genera error en la instruccion for...me dice q hay un conflicto en el tipo de datos (string y me presenta en la explicacion del error [String:="Select MAX(Semana]...el campo semana es numerico....y no se que hacer....pueden ayudarme? gracias

<%


Function Max_semana()
Max_semana="Select MAX(Semana) From Produccion"
Set RS = Conn.Execute(Max_semana)
RS.Close
End Function


DIM I, J, K, dif, max_s, vector(51, 5, 4)
max_s=Max_semana()

FOR I=1 to max_s ****aqui genera el error
....