SQL - VISUAL BASIC 6.0 Y SQL CONECTADO A ACCESS 2000

TENGO UN SQL EN VISUAL BASIC 6.0 CONECTADO A ACCESS 2000 CON LA FUNCION SUM
ESTA FUNCUION LA UTILIZO DE LA SIGUIENTE FORMA QUE NO ME SUMA PERO NO ME DA ERROR DE SINTAXIS NI NINGUN TIPO DE ERROR TALVEZ SEA ERROR LOGICO

Dim SQL5 As Recordset

SQL5.Open "SELECT [ID CODIGO],SUM(COSTO) FROM TABLA1 WHERE [ID CODIGO] = '" & TXTCODIGO & "' ", ADOCONEXION, adOpenDynamic

If Not SQL5.EOF Then

TXTCOSTO = SQL5!COSTO

End If

PERO SE ASUME QUE EL OBJETO TXTCODIGO.TEXT OBTENDRA LA SUMA DE EL CAMPO COSTO PERO AL EJECUTARLO NO FUNCIONA LA SUMA.
PROBE QUITANDO LA FUNCION SUM SIN SUMAR , LA CONSULTA FUNCIONO BIEN PERO SI LA AGREGO TAL COMO ESTA EN ESTE EJEMPLO EL OBJTO TXTCOSTO.TEXT NO APARESE NADA SI ALGUIEN ME PUEDE ACLARAR SE LO AGRADESIRIA MUCHO SALUDOS

Estas haciendo referencia al campo COSTO de la Tabla \"TABLA1\", siendo que no lo estas seleccionando con el SELECT, para hacer referencia a la suma, usa esta consulta SQL:

\"SELECT [ID CODIGO],SUM(COSTO) AS SUMACOSTO FROM TABLA1 WHERE [ID CODIGO] = \'\" & TXTCODIGO & \"\' \"

y luego haces referencia al valor de la suma de la forma:

[TXTCOSTO] = SQL5!SUMACOSTO

fin.