Soru sql sorgusunda 3 kritere göre veri aktarma yapmak istiyorum.

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile veri tabanından abone adı (ELEKTRİK, SU, DOĞALGAZ) kriterine göre kayıtları excele aktarıyorum.

Dim s1 As Worksheet
Dim i, Satır As Long

Set s1 = Sheets("TAHAKKUK")

i = WorksheetFunction.Max(s1.[B:B]) + 2
Call BAGLANTI
Set rs = CreateObject("ADODB.Recordset")

If ComboBox5.Value = "ELEKTRIK" Then
X = s1.Cells(Rows.Count, "A").End(3).Row
If X > 1 Then s1.Range("A1:N" & X).ClearContents

s1.Range("A1").Value = "S.NO"
s1.Range("B1").Value = "İLÇESİ"
s1.Range("C1").Value = "KURUMU"
s1.Range("D1").Value = "ABONE NO"
s1.Range("E1").Value = "FATURA NO"
s1.Range("F1").Value = "İŞLETME KODU"
s1.Range("G1").Value = "ÇARPAN"
s1.Range("H1").Value = "İLK ENDEX"
s1.Range("I1").Value = "SON ENDEX"
s1.Range("J1").Value = "TÜKETİM KWh"
s1.Range("K1").Value = "İLK OKUMA TARİHİ"
s1.Range("L1").Value = "SON OKUMA TARİHİ"
s1.Range("M1").Value = "FATURA DÖNEMİ"
s1.Range("N1").Value = "FATURA TUTARI"

yil_sec = ComboBox9.Value
ay_sec = ComboBox10.Value
abone_sec = ComboBox5.Value
strSQL = "SELECT IlceAdi,birim_adi,abone_no,fatura_no,isletme_kodu,carpan,ilk_endex,son_endex,sarfiyat,ilk_okuma,son_okuma,Format(fatura_tarihi,'mmmm yyyy') ,fatura_tutari " & _
             "FROM fatura " & _
             "WHERE abone_adi='" & abone_sec & "' "
           rs.Open strSQL, baglan, 1, 1
s1.Range("b2").CopyFromRecordset rs
rs.Close

For i = 1 To s1.Cells(Rows.Count, "B").End(3).Row - 1
s1.Range("A" & i + 1) = i
Next

End If

Sorgu kriterine yıl ve ay bilgisini de ekleyerek YIL, AY VE ABONE ADI kriterleri ile veri aktarmak istiyorum.
Yıl ve Ay bilgisi fatura tablosunda fatura_tarihi alanında dd mm yyyy biçiminde metin olarak tutuluyor.
Düz mantıkla frmRapor formunda bulunan ComboBox9 dan YIL, Combobox10 dan AY ve ComboBox5 ten de Abone Adı tercihi ile verileri aktarmak istiyorum.
Yardımcı olacak arkadaşlara teşekkür ederim.