"SELECT Sum([Detalle_Compra]![Cant_Compra]*[Detalle_Compra]![Valor_Compra]) AS Resultado,"
    "Compras.Id_Proveedor,"
    "Compras.Estado_Compra"
    " FROM Compras"
    " INNER JOIN Detalle_Compra"
    " ON Compras.Codigo_Compra = Detalle_Compra.Cod_Compra"
    " GROUP BY Compras.Id_Proveedor,"
    "Compras.Estado_Compra"
    " HAVING (((Compras.Id_Proveedor)='" & Me.cb_prov_ftcompra.Value & "')"
    " AND ((Compras.Estado_Compra)=""Credito""))"