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