aşağıdaki kodu dener misiniz?

Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection



SQL = "SELECT [tarih]  "

SQL = Sql & "FROM [liste$A:A" & "] where  not isnull([tarih]) order by [tarih]"

Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=yes"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1

'

'   Eğer Hiç Kayıt Yoksa



If ADO_RS.RecordCount = 0 Then

    ADO_RS.Close

    ADO_CN.Close

    Set ADO_RS = Nothing

    Set ADO_CN = Nothing

    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"

    Exit Sub

End If

ADO_RS.MoveLast

ADO_RS.MoveFirst



    cmbAra.Clear

    cmbAra.Column = ADO_RS.GetRows

' yada aşağıdaki hy arası da olur

'''hy additem yöntemi______________________________

'Do

'    cmbAra.AddItem Format(ADO_RS(0), "dd.mm.yyyy")

'ADO_RS.MoveNext

'Loop Until ADO_RS.EOF

'''hy additem yöntemi______________________________Bitti

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing