recordsetle denemek isterseniz aşağıdaki kodu deneyebilirsiniz.
Not: referanslara ADO eklenmeli
ADO dan kast ettiğim; microsoft Activex Data Objects x.x

'hy____________________________AçılırKutu_Deneme

Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection



SQL = "SELECT [F1] " & _

      "FROM [Ana_Sayfa$C2:C] " & _

      "WHERE ([F1]<>"""") " & _

      "ORDER BY [F1];"



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=No"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1



If ADO_RS.RecordCount = 0 Then GoTo son



ADO_RS.MoveLast

ADO_RS.MoveFirst



 ComboBox_FirmaUnvani.Column = ADO_RS.GetRows



son:

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

'hy_____________________________________________Bitti

    Application.AutoCorrect.AutoExpandListRange = True



    IlleriAktar

    TextBox_Tarih = Format(Date, "dd.mm.yyyy")



        With TextBox_Tarih

        .SelStart = 0

        .SelLength = .TextLength

        End With