SoloCodigo

HOLA, LA VERDAD NECESITO ALGO DE AYUDA.
 NECESITO SACAR UN CODIGO PARA UN REPORTE, EL REPORTE EN SI ME LO MUESTRA EL SISTEMA, PERO NO ME SUMA UNOS VALORES.
 ME PODRAN AYUDAR.
ESTO ES PARTE DEL CODIGO QUE TENGO.

  'calcula compras
             For i = 0 To caIn - 1
                    s = "select sum(convert(float,movB_detM)) as Compras from  emp_movBodega where movB_fecha " _
                    & " between '" & f1 & "' and '" & f2 & "' and movB_tipEn='" & grup(J) & "' and movB_tipM=' 'and movB_desP='" & insum(i, 0) & "'"
                        Set rs = CN.Execute(s)
                        If IsNull(rs!Compras) = True Then
                                insum(i, 1) = "0"
                            Else
                                If Not rs.EOF Then
                                    insum(i, 1) = rs!Compras
                                End If
                        End If
                       
             Next i
    End If



MI CONSULTA ES... COMO HACER QUE ESTE CODIGO MUESTRE LA SUMA DE LAS COMPRAS REALIZADAS???

MUCHAS GRACIAS