Visual Basic - AYUDA

HOLA programadores se me presento un inconveniente con la programacion y es el sgte:

tengo un recordset de la sgte forma

despachos.rscommand1.open " select sum ( x) as suma where a= b "
text10.text = despachos.rscommand1.fields ("suma")

lo anterior funciona bien pero le adiciono una variable para que me tome el mismo valor de text10 y la llamo en otro procedimiento y el valor me dice que es 0, cuando text10.text = 10 me explico:

public resul as double

despachos.rscommand1.open " select sum ( x) as suma where a= b "
text10.text = despachos.rscommand1.fields ("suma")
resul=despachos.rscommand1.fields("suma")

resul deberia tener el mismo valor de text10.text, pero cuando llamo a resul en otro lado me dice que el valor es 0
sera que me falta algo, si alguien me puede ayudar..}

muchas gracias

Porque no intentas decir más bien:

public resul as double

despachos.rscommand1.open " select sum ( x) as suma where a= b "
text10.text = despachos.rscommand1.fields ("suma")
resul=CDbl(text10.text)

Revisa si la asignacion a resul cambia el valor en algun momento por medio de un debugger...