TEXTBOX PREENCHENDO LIST

  Private Sub TextBox1_Change()
On Error GoTo TrataErro

    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sql As String
    Dim i As Variant
    Dim campo As Field
    Dim myArray() As Variant

    Set conn = New ADODB.Connection
    With conn
    
        [ô].Provider = [Ô]Microsoft.JET.OLEDB.4.0[Ô] [ô] versão excel 2003
        .Provider = [Ô]Microsoft.ACE.OLEDB.12.0[Ô] [ô] versão excel 2007
        .ConnectionString = [Ô]Data Source=[Ô] & ThisWorkbook.FullName & [Ô];Extended Properties=Excel 8.0;[Ô]
        .Open
    End With

    sql = [Ô]SELECT  Codigo,Fornecedor FROM [servico$] where  Fornecedor  LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô] order by Codigo desc[Ô]

    

    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open sql, conn, adOpenDynamic, _
              adLockBatchOptimistic
    End With

    [ô]pega o número de registros para atribuí-lo ao listbox
    lstLista.ColumnCount = rst.Fields.Count


    [ô]coloca as linhas do RecordSet num Array, se houver linhas neste
    If Not rst.EOF And Not rst.BOF Then
        myArray = rst.GetRows
        [ô]troca linhas por colunas no Array
        myArray = Array2DTranspose(myArray)
        [ô]atribui o Array ao listbox
        lstLista.List = myArray
        [ô]adiciona a linha de cabeçalho da coluna
        lstLista.AddItem , 0
        [ô]preenche o cabeçalho
        For i = 0 To rst.Fields.Count - 1
            lstLista.List(0, i) = rst.Fields(i).Name
        Next i
        [ô]seleciona o primeiro item da lista
        lstLista.ListIndex = 0
    Else
        lstLista.Clear
    End If

    [ô]atualiza o label de mensagens
    If lstLista.ListCount <= 0 Then
        lblMensagens.Caption = lstLista.ListCount & [Ô] Registros encontrados[Ô]
    Else
        lblMensagens.Caption = lstLista.ListCount - 1 & [Ô] Registros encontrados[Ô]
    End If

    [ô] Fecha o conjunto de registros.
    Set rst = Nothing
    [ô] Fecha a conexão.
    conn.Close

TrataSaida:
    Exit Sub
TrataErro:
    Debug.Print Err.Description & vbNewLine & Err.Number & vbNewLine & Err.Source
    Resume TrataSaida
End Sub