Soru Access veritabanından bir biri ile bağlantılı sorgu?

[s.savas]

Merhaba arkadaşlar.
Bu kodlarla access veritabanından sorgu yaptırıyorum. İstiyorum ki bu sorgular birbiri ile ilişkili hale gelsin.
Misal: Adı Soyadı sorgusu ile listelenen veri içerisnde de kimlik numarası ve ekleyeceyim diğer sorgu kriterli ile de filtre yapılabilsin.
İl-ilçe-mahalle sorgusu gibi bir biri ile ilişkili olsun.
Forumda birbiri ile ilişkili combobox örnekleri mevcut ancak bunlar açık excell sayfası üzerinden kurgulanmışlar.

Private Sub txtSorgu_Adı_Change()
txtSorgu_Adı.Text = UCase(Replace(Replace(Replace(Replace(txtSorgu_Adı.Text, "ı", "I"), "i", "İ"), "I", "I"), "İ", "İ"))

ListView1.ListItems.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI
    rs.Open "select * from [REHBER] WHERE [REHBER].ADI_SOYADI LIKE '%" & txtSorgu_Adı & "%'", baglan, 1, 1
Label67.Caption = "Kayıtlı Kişi " & rs.RecordCount & " kişidir"

If Label58 = "1" Then
sorgu
ElseIf Label58 = "2" Then
sorgu
ElseIf Label58 = "3" Then
sorgu1
End If
End Sub

Private Sub txtSorgu_Kimlik_Change()

ListView1.ListItems.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI
    rs.Open "select * from [REHBER] WHERE [REHBER].TC_KIMLIK LIKE '%" & txtSorgu_Kimlik & "%'", baglan, 1, 1
Label68.Caption = "Kayıtlı Kişi " & rs.RecordCount & " kişidir"

If Label58 = "1" Then
sorgu
ElseIf Label58 = "2" Then
sorgu
ElseIf Label58 = "3" Then
sorgu1
End If
End Sub

Private Sub txtSorgu_Sicil_Change()

ListView1.ListItems.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call BAGLANTI
    rs.Open "select * from [REHBER] WHERE [REHBER].SICIL LIKE '%" & txtSorgu_Sicil & "%'", baglan, 1, 1
Label69.Caption = "Kayıtlı Kişi " & rs.RecordCount & " kişidir"

If Label58 = "1" Then
sorgu
ElseIf Label58 = "2" Then
sorgu
ElseIf Label58 = "3" Then
sorgu1
End If
End Sub