No coinciden los tipos

[vito_gris]

Hola amigos tengo el siguiente problema; estoy relaizando un sumatoria de valores de la siguiente forma:
j=0
Do while not R_cursos.EOF
total_curso=total_curso+R_cursos(6)
total_sence=total_sence+R_cursos(7)
total_empresa=total_empresa+R_cursos(8)
j=j+1
R_cursos.movenext
loop

pero me sale este error
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos

el campo R_cursos(6),R_cursos(7),R_cursos(8) son de tipo numerico en la ba se de datos (sql server)

gracias

[JosephFley]

Saludos,

Puedes probar conviertiendolos a Dobles en el momento de sumarlos con:

CDbl(R_Cursos(6))

[TomaHawkk]

Hola,

Si el error sucede la primera vez que entra al bucle si no has inicializado las variables interpreta como un string.

Dim total_curso
Dim total_sence
Dim total_empresa

total_curso = 0
total_sence = 0
total_empresa = 0

Otro cosa puede ser que uno de los campos devuelva NULL.

Espero que te sirva,

Saludos.

[vito_gris]

gracias amboas soluciines me sirvieron