Ok ya esta lo dejo aqui:
Código vb:
Ver originalSet rsPagosDevoluciones = New Recordset
With rsPagosDevoluciones
.Source = "SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente = Pagosdevoluciones.IdCliente WHERE Clientes.IdCliente = " & Text3 & ""
.LockType = adLockBatchOptimistic
.ActiveConnection = cnPrueba
End With
rsPagosDevoluciones.Open
Text7.Text = rsPagosDevoluciones!sumitamia
He quitado el group by,he añadido el activeconnectio que por eso me marcaba siempre el mismo error y de mede añadir la columna importe he añadido sumitamia.
Muchas Gracias como siempre Insomnia,
He intentado mandarte las cervezas por Mp pero estallo el ordenador .
Saludos