Visual Basic 6 - somma

ciao avrei un probblemino.praticamente o un form in cui ce un datagrid con dei dati inseriti e un text nominato txttotalemese sempre nel stesso form, vorrei fare se possibile riportare la somma di tutte le righe del datagrid sul txtotalemese, in modo che ogni volta che inserisco un nuova cifra va ad aumentare il txttotalemese.vi posto il codice.
Sub totali()
txttotalemese.Text = 0
If ado_acquistomaterialeangolodelcolore.Recordset.RecordCount = 0 Then
Else
ado_acquistomaterialeangolodelcolore.Recordset.MoveFirst
While ado_acquistomaterialeangolodelcolore.Recordset.EOF = False
If Not IsNull(ado_acquistomaterialeangolodelcolore.Recordset.Fields(6)) Then
txttotalemese.Text = Val(txttotalemese.Text) = Val(txttotalemese.Text) + Val(ado_acquistomaterialeangolodelcolore.Recordset.Fields(6))
End If
ado_acquistomaterialeangolodelcolore.Recordset.MoveNext
Wend
End If
End Sub

siete in vacanza ho non volete rispondermi?

Risponderti non è un diritto. Ma non dico a te, ma in generale. Comunque io non ho risposto perchè non sono bravo con i datagrid, anche se guardando meglio il codice ti posso dire che:


Questo non si può fare ... cioè non puoi mettere + uguaglianze in fila