datagrd toplama işlemi

arkadaşlar datagridte ki bir kolonundaki yukardan aşagı hepsinin toplamını bir texte yazdımak istiyorum. (herhangi bir butona tıklamadan otomatik)
yardımlarınız iiçin şimdiden tşk

Önce senin bize yardımcı olman ve örnek uygulamanı eklemen lazım. Bu şekilde yardımcı olamayız ne yazık ki.

örneği ekledim örnek içinde 2 sorum var yardımınız için teşk
bide unutuğum birşey daha sil butonuyla toblo1 deki (grid1) bilgilerin tümünü silmek tşk

Ek Dosyalar

Private Sub DataGrid1_AfterUpdate()
Text1.Text = ""
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Text1.Text = Val(Text1.Text) + Adodc1.Recordset.Fields(3)
Adodc1.Recordset.MoveNext
Next i
Timer1.Enabled = False
End Sub

---

diğer sorunu anlayamadım, sadece grid üzerinde görünen bilgilerimi silmek istiyorsun, yoksa veritabanındaki bütün bilgileri mi silmek istiyorsun.

tşk cevap için ama asıl sorun data1 deki bilgilerin tümünü tek tuşla data2 ye kaydetme ,silme işlemini halettim

sorunu çözen yokmu ?