Sentencia sql en vb6 para reflejar en un listview

[lokoman]

Veo que tienes comentado el ORDER BY en la consulta

Código vb:

SQL = "SELECT FACTURA.co_cli, dbo.clientes.campo5, sum(dbo.FACTURA.saldo) As saldo1 " _
& " FROM dbo.FACTURA, dbo.clientes " _
& " Where dbo.FACTURA.anulada! = 1 And " _
& " dbo.FACTURA.saldo! = 0 And " _
& " dbo.FACTURA.FEC_EMIS < getdate() and " _
& " dbo.clientes.campo5 <> '' and " _
& " dbo.FACTURA.co_cli = dbo.clientes.co_cli and " _
& " datediff(dd,dbo.FACTURA.FEC_EMIS, getdate()) > 40 " _
& " group by dbo.FACTURA.co_cli, dbo.clientes.campo5 " _
& " ORDER by 1 ASC"