Ordenar Listbox após ele ser preechido

Fiz um loop para preencher o Listbox, no loop estava sempre incrementando uma variável que correspondia ao codigo do fornecedor, portanto automaticamente o Listbox está sendo listado do código menor ao mais, porém gostaria de ordenar esse Listbox pelo nome do fornecedor, teria como?

Boa tarde....

Se esta buscando em uma consulta, basta apenas acrescentar essa coluna ( nome do fornecedor ) a tua lstbox. Provavelmente deve estar ela com apenas uma coluna com um determinado tamanho (cm). Vá na propriedades, formato e acrescente mais uma coluna.

O código está assim:

Código:

'Declaração de variáveis
    Dim vNoFornecedor As String, vNoFantasia As String, index As Double, where As Double, vCdFornecedor As Integer, validacao As Double, vNrFone1Formatado As String, vNrCelularFormatado As String
    Dim vNrFone1, vNrFax, vNrCelular, sql, vCdMaximo
   
    index = 1
    vNoFornecedor = ""
    vNoFantasia = ""
    vNrFone1 = ""
    vNrFax = ""
    vNrCelular = ""
   
        vCdMaximo = DMax("[cdFornecedor]", "tblFornecedores")
   
        Me.listaFornecedor.RowSource = ""
       
        'Inicio do loop de preenchimento
        Do While index <= vCdMaximo
            sql = "SELECT [tblFornecedores].[cdFornecedor], [tblFornecedores].[noFornecedor], [tblFornecedores].[noFantasia], [tblFornecedores].[nrFone1], [tblFornecedores].[nrFax], [tblFornecedores].[nrCelular] FROM tblFornecedores WHERE tblFornecedores.cdFornecedor=" & index
                With CurrentDb.OpenRecordset(sql)
                    If Not .EOF Then .MoveFirst
                    Do While Not .EOF
                       
                       
                        'Enviando dados do banco para variáveis locais
                        vCdFornecedor = CInt(!cdFornecedor)
                        vNoFornecedor = CStr(!noFornecedor)
                        vNoFantasia = CStr(!noFantasia)
                        vNrFone1 = !nrFone1
                        vNrFax = !nrFax
                        vNrCelular = !nrCelular
                       
                        vNoFornecedor = Replace(vNoFornecedor, ";", " - ")
                        vNoFantasia = Replace(vNoFantasia, ";", " - ")
                       
                       
                        'Colocando máscara nos telefones
                        If Len(vNrFone1) = 10 Then
                            vNrFone1Formatado = Format(vNrFone1, "(@@)@@@@-@@@@")
                        Else
                            If Len(vNrFone1) = 11 Then
                              vNrFone1Formatado = Format(vNrFone1, "(@@)@@@@@-@@@@")
                            Else
                                If Len(vNrFone1) = 8 Then
                                    vNrFone1Formatado = Format(vNrFone1, "@@@@-@@@@")
                                End If
                            End If
                        End If
                       
                        If Len(vNrCelular) = 10 Then
                            vNrCelularFormatado = Format(vNrCelular, "(@@)@@@@-@@@@")
                        Else
                            If Len(vNrCelular) = 11 Then
                              vNrCelularFormatado = Format(vNrCelular, "(@@)@@@@@-@@@@")
                            Else
                                If Len(vNrCelular) = 8 Then
                                    vNrCelularFormatado = Format(vNrCelular, "@@@@-@@@@")
                                End If
                            End If
                        End If
                       
                       
                        'Preenchendo ListBox
                        If Me.listaFornecedor.RowSource = "" Then
                            Me.listaFornecedor.RowSource = vCdFornecedor & ";" & vNoFornecedor & ";" & vNoFantasia & ";" & vNrFone1Formatado & ";" & vNrFax & ";" & vNrCelularFormatado
                        Else
                            Me.listaFornecedor.RowSource = Me.listaFornecedor.RowSource & ";" & vCdFornecedor & ";" & vNoFornecedor & ";" & vNoFantasia & ";" & vNrFone1Formatado & ";" & vNrFax & ";" & vNrCelularFormatado
                        End If
                       
                        index = vCdFornecedor + 1
                       
                        .MoveNext
                        CurrentDb.Close
                    Loop
                End With
        Loop

teria alguma função para ordenar o Listbox pela segunda coluna?

Boas....

Uma sugestão é ir na consulta que gera a instrução em SQL e Alterar o campo desejado para a ordem que deseja ( crescente ou decrescente ).

funcionou, obrigado

O fórum agradece o retorno.

Somente não se esqueça de dar colocar como resolvido o mesmo.