Excel Vba Access İkinci Alan Verilerini Getir

Merhabalar
Excel userform daki ComboBox1'e Access ten verileri alıyorum. Yalnız ComboBox1 'e alan1( 1 sütun) verileri görünüyor. Benim istediğim alan2( 2 sütun) kodda nasıl bir değişiklik yapabilirim.

Private Sub ComboBox1_DropButtonClick()



ComboBox1.Clear

Dim yol As String

Dim rs As ADODB.Recordset

yol = ThisWorkbook.Path

Set con = New ADODB.Connection



con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & yol & "\DATA.mdb;"

On Error Resume Next

Set rs = New ADODB.Recordset

 

  sorgu = "SELECT  * from bilgiler"



 rs.Open sorgu, con, 1, 3

 j = rs.RecordCount

 

With ComboBox1



.Clear

.ColumnWidths = "50"

.ColumnCount = 1





.Column = rs.getrows

End With



 

 Set rs = Nothing

 Set con = Nothing

End Sub

sorgu = "SELECT  * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?

(02/12/2020, 21:43)berduş yazdı: sorgu = "SELECT  * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?

Teşekkürler Oldu

Rica ederim)
İyi calismalar