Soru Listview sütununa veri tabanından aylık toplam aldırma?

[s.savas]

Merhaba arkadaşlar.
Listview1'in 6.kolonuna veritabanındaki fatura tablosu, fatura_tutari alanından Ocak 2020 tarihinin toplamını aldırmak istiyorum.
Nasıl yapılması gerektiği hususunda yardımlarınızı rica ediyorum.

Private Sub listele_yillik()
 With Me.ListView1
  .Gridlines = True
  .FullRowSelect = True
  .View = lvwReport
  .ListItems.Clear
  .ColumnHeaders.Clear
  .CheckBoxes = True

End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "id", 0, lvwColumnLeft
.ColumnHeaders.Add , , "İl Adı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "İlçe Adı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Birim Adı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Fatura Türü", 80, lvwColumnLeft
.ColumnHeaders.Add , , "Abone No", 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 1, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 2, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 3, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 4, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 5, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 6, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 7, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 8, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 9, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 10, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 11, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), 12, 1), "mmmm yyyy"), 80, lvwColumnCenter
.ColumnHeaders.Add , , Format(Date, "yyyy") & " Toplamı", 80, lvwColumnCenter
.FullRowSelect = True
.Gridlines = True
End With

On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI

   rs.Open "select id,IlAdi,IlceAdi,birim_adi,abone_adi,abone_no,fatura_tutari from [fatura]", baglan, 1, 1
ListView1.ListItems.Clear
Dim satir As Integer
    On Error Resume Next
    If Not rs.EOF Then
        Do While Not rs.EOF
 Set evn = ListView1.ListItems.Add(, , rs.Fields("id"))
 evn.SubItems(1) = rs.Fields("IlAdi")
 evn.SubItems(2) = rs.Fields("IlceAdi")
 evn.SubItems(3) = rs.Fields("birim_adi")
 evn.SubItems(4) = rs.Fields("abone_adi")
 evn.SubItems(5) = rs.Fields("abone_no")
 evn.SubItems(6) = rs.Fields("fatura_tutari")
 
  rs.MoveNext
 
        Loop
    End If
    rs.Close: con.Close
    Set rs = Nothing

ListCount.Caption = "Toplam Fatura Sayısı= " & ListView1.ListItems.Count

ComboBox1.Column = baglan.Execute("select distinct [IlAdi]  from [abone_listesi]").getrows
If ListView1.ListItems.Count = 0 Then
MsgBox "Aranan Kayıt Bulunamadı." & vbLf & vbLf & "Sorgu Kriterini Gözden Geçiriniz..", vbCritical, "UYARI"
End If

End Sub