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