amacım sadece listbox'a recordsetten veri almak olduğu için diğer kodları sildim, excele TmpSilme adlı yeni bir sayfa ekledim

Option Compare Text

Const Ekleme As String = "|ŞABLON|Sayfa1|liste|TmpSilme|"

Dim Sql As String

Dim Cn As Object

Dim Rs As Object



Private Sub UserForm_Initialize()

Dim syf, TmpVr As Worksheet, k As Byte



Set TmpVr = Sheets("TmpSilme")

    TmpVr.Unprotect "4455"

    TmpVr.Cells.Clear

  Hcr = 1

  

    For Each syf In Worksheets

        If InStr(1, Ekleme, "|" & syf.Name & "|", 1) = 0 Then

        TmpVr.Range("a" & Hcr) = syf.Name

        Hcr = Hcr + 1

        End If

    Next syf



Set Cn = CreateObject("Adodb.Connection")

Cn.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & _

                      ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""

Cn.Open



SQL = "select * from [TmpSilme$A:A] where [F1]<>'' order by [F1]"

Set Rs = CreateObject("adodb.recordset")

Rs.Open SQL, Cn, 3, 1

'

'  Eğer Hiç Kayıt Yoksa

If Rs.RecordCount = 0 Then

    Rs.Close

    Set Rs = Nothing

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

    Exit Sub

End If

 

ComboBox1.Column = Rs.GetRows



'With Me.ListBox1

'        .ColumnCount = Rs.Fields.Count

'        .Column = Rs.GetRows

''        .ColumnHeads = True

'End With

Rs.Close

Set Rs = Nothing



End Sub

---

dizi kullanmayı da denedim, diziye değeri recordsetten alıp listeye eklemeyi arr ile yaptım olmadı.