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.