Soru Access veritabanında ara-bul

[s.savas]

Merhaba arkadaşlar.
Userform yüklenirken Combobox1'e KURUMLAR isimli tablodan KURUM_ADI alanı yükleniyor. İstiyorum ki bu esnada seçilen kuruma ait diğer bilgilerde ilgili textboxlara yüklensin.

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

End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "S.No", 0, lvwColumnLeft
.ColumnHeaders.Add , , "Adı Soyadı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Ünvanı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Cep Telefonu", 100, lvwColumnLeft
.ColumnHeaders.Add , , "E-Posta", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Kurum Adı", 200, lvwColumnLeft
.ColumnHeaders.Add , , "Adresi", 200, lvwColumnLeft
.ColumnHeaders.Add , , "Telefon 1", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Telefon 2", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Telefon 3", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Faksı", 100, lvwColumnLeft
.ColumnHeaders.Add , , "E - Posta", 100, lvwColumnLeft
.ColumnHeaders.Add , , "Kep Adresi", 100, lvwColumnLeft
  

.FullRowSelect = True
.Gridlines = True
End With

Dim evn As ListItem
    
    On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

   rs.Open "select * from [KURUM_REHBER]", 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("kurum_ID"))
evn.SubItems(1) = rs.fields("YETKILI_ADI")
evn.SubItems(2) = rs.fields("YETKILI_UNVAN")
evn.SubItems(3) = rs.fields("YETKILI_CEP")
evn.SubItems(4) = rs.fields("YETKILI_EPOSTA")
evn.SubItems(5) = rs.fields("KURUM_ADI")
evn.SubItems(6) = rs.fields("ADRES")
evn.SubItems(7) = rs.fields("TEL1")
evn.SubItems(8) = rs.fields("TEL2")
evn.SubItems(9) = rs.fields("TEL3")
evn.SubItems(10) = rs.fields("FAKS")
evn.SubItems(11) = rs.fields("KURUM_EPOSTA")
evn.SubItems(12) = rs.fields("KEP_ADRES")

  rs.MoveNext
            
            
        Loop
    End If
    rs.Close: con.Close
    Set rs = Nothing
 
ComboBox1.Column = baglan.Execute("select distinct [KURUM_ADI]  from [KURUMLAR]").getrows
Label44.Caption = "Toplam kayıt: " & ListView1.ListItems.Count & " Adet"
yeniid = ListView1.ListItems.Count + 1
    
End Sub

Şu kod bloğu ile excell sayfasında sorgu yapabiliyorum, ancak bu kodu veritabanında çalışacak şekilde revize edemiyorum. (Örnek kod)
Uzman arkadaşların ilgisini rica ediyorum.

Private Sub ComboBox3_Change()
If ComboBox3 = "" Then TextBox1 = "": Exit Sub
Set s3 = Sheets("Veri")
Set Bul = s3.Range("b2:b" & s3.[B65536].End(3).Row).Find(ComboBox3, lookat:=xlWhole)
If Not Bul Is Nothing Then
TextBox1 = s3.Cells(Bul.Row, "c")
Else:
MsgBox "Ünvan bulunamadı.", vbCritical, "UYARI"
End If
End Sub

Program arayüzü


Veritabanı arayüzü



Nesneler:
txtAdresi "Adres"
txtTel1 "Telefon 1"
txtTel2 "Telefon 2"
txtTel3 "Telefon 3"
txtFaks "Faks"
txtKurum_eposta "E-Posta"
txtKep "Kep Adresi"