Berduş hocam listbox aynı exceldeki gibi ona göre ayarladım ve ışık hızında çalışıyor

Sadece alttaki kodu değiştirdim.

Public Sub CreaTabellaTmp(SrqTxt As String)



    Dim rs As Object

    Dim cn As Object

    

    Set rs = CreateObject("ADODB.Recordset")

    Set cn = CreateObject("ADODB.Connection")



    Set cn = CurrentProject.Connection

    rs.Open SrqTxt, cn, , , 1



    With Me.List1

        .ColumnCount = 3

        .ColumnWidths = "30;30"

        .Column = rs.GetRows

    End With



    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing

End Sub