APLICATIVO VB-6 COM BD MYSQL - LENTO

Sub CarregarDados()
Dim vBusca As String

vBusca = [Ô]SELECT ID_Clientes,Cliente,[Ô] _
       & [Ô]Contato,Email FROM Tab_Dados ORDER BY ID_Clientes ASC[Ô]
  
Me.MousePointer = 11
  OpenMySQL    [ô] Função que abre a conexão:
    Set Rst = New ADODB.Recordset
  
        With Rst
                .ActiveConnection = objMySQL
                .CursorLocation = adUseClient
                .CursorType = adOpenKeyset
                .LockType = adLockReadOnly
                .Open vBusca
        End With
        
          [ô] Configurar aqui o ListView

Lv1.ListItems.Clear

    With Lv1.ColumnHeaders
                          .Clear
                          .Add , , [Ô]ID_Cliente :[Ô], 1300, 0
                          .Add , , [Ô]Cliente :[Ô], 3000, 0
                          .Add , , [Ô]Contato :[Ô], 1800, 2
                          .Add , , [Ô]E-mail :[Ô], 3000, 0
    End With
         
          Do Until Rst.EOF
         
             Set Lst = Lv1.ListItems.Add(, , , 3, 3)
  
                 With Lst
                        .Text = Rst.Fields(0)          [ô] ID_Cliente
                        .SubItems(1) = Rst.Fields(1)   [ô] Cliente
                        .SubItems(2) = Rst.Fields(2)   [ô] Contato
                        .SubItems(3) = Rst.Fields(3)   [ô] E-mail
                 End With
    
                 Rst.MoveNext
          Loop
          
Me.MousePointer = 0

End Sub