Soru Access veritabanından koşullu veri alma

[s.savas]

Merhaba arkadaşlar.

Private Sub ComboBox2_Click()
Dim s1, s2 As Worksheet
Set s1 = Sheets("1-Devamsızlık Formu (Ek-4)")
Set s2 = Sheets("2-Bordro")
Set s3 = Sheets("3-Harcama Talimatı")
Set s4 = Sheets("4-Harcama Belgesi")
Set s5 = Sheets("5-Banka Listesi")
Set s6 = Sheets("6-Faaliyet Raporu")

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

katilimci = Me.ComboBox2.Value
rs.Open "select * from veriler WHERE [veriler].program_portal_no='" & ComboBox2.Text & "';", baglan, 1, 1
If rs.RecordCount >= 1 Then

s1.Range("C1").Value = rs.fields("bütçe_yılı")
s1.Range("C3").Value = rs.fields("program_başlama_tarihi")
s1.Range("P3").Value = rs.fields("program_bitiş_tarihi")
s1.Range("C4").Value = rs.fields("işyeri_ünvanı")
s1.Range("P2").Value = rs.fields("program_konusu")
s1.Range("P4").Value = rs.fields("işyeri_imza_yetkilisi_adı")
s1.Range("C2").Value = ComboBox2.Value

s2.Range("F1").Value = rs.fields("işyeri_ünvanı")
s2.Range("F2").Value = rs.fields("işyeri_sgk_sicil_numarası")
s2.Range("R1").Value = rs.fields("işyeri_banka_hesap_numarası")
s2.Range("R2").Value = rs.fields("işyeri_ünvanı")
s2.Range("T2").Value = rs.fields("bütçe_yılı")

çalışılan_ay = DateSerial(Year(Date), ComboBox1.ListIndex + 1, Day(Date))
s3.Range("C2").Value = rs.fields("işyeri_ünvanı")
s3.Range("F2").Value = rs.fields("işyeri_banka_hesap_numarası")
s3.Range("E4").Value = çalışılan_ay & " " & rs.fields("bütçe_yılı")
's3.Range("e4").NumberFormat = "mmmm"

ElseIf Not rs.RecordCount >= 1 Then
MsgBox "Program kaydı bulunamadı", vbInformation, "...."
Exit Sub
End If
rs.Close

End Sub

Access veritabanında bulunan katılımcı_listesi alanındaki adı_soyadı ve tc_kimlik tablosundaki verileri TYP No ile eşleştiren bir döngüye alıp excell deki 1-Devamsızlık Formu (Ek-4) B7 den itibaren aktarmam gerekiyor.