[vb6] Select Sum

[Pirelli72]

Dim myquery_s
myquery_s = "SELECT SUM(importo) AS SOMMA FROM mov WHERE codice = " & Chr(39) & identifica & Chr(39) & ""
vismov.spesa.Text = myquery_s

Per forza 'myquery_s' è una stringa che formula poi la query e tu la metti come la proprietà .text dell TextBox.
Come proprietà .text dell TextBox devi mettere il risultato della query non la stringa che formula la query!