Lentidão conexão Access ADO com VB6

Bom dia,

Alguém poderia me ajudar?

Estou tendo muita lentidão nas minhas conexões do VB6 com Access, demora muito para efetuar uma simples consulta do tipo "SELECT MAX(CAMPO) AS XXXX FROM TABELA, eu seto a minha string de conexão assim:

Set cn = CreateObject("ADODB.Connection")
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx;Jet OLEDB:DataBase PassWord=xxx"

Obrigada

Bom dia

Use esse Módulo para a Conexão...

Crie um Módulo chamado Cls_Conexao

Depois é só instanciar o objeto da conexão nos outros módulos ou nos Formulários

#######

Dim connection As New ADODB.connection

Public result_set As ADODB.Recordset

Public data_reader As ADODB.Recordset

Public Sub Abrir_Conexao()

Dim provider_data_base As String
Dim url_data_base As String
Dim local_data_base As String
Dim nome_data_base As String
   
   provider_data_base = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" 'banco.mdb
   'ou
   provider_data_base = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" 'banco.accdb

   
   local_data_base = "pasta do local do banco de dados\"
   
   nome_data_base = "nome do banco de dados e a extensão "
   
   url_data_base = provider_data_base + local_data_base + nome_data_base
   
   Set Connection = New ADODB.Connection    
   Connection.CursorLocation = adUseClient    
   Connection.Open url_data_base    
End Sub
Public Sub Fechar_Conexao()
   Connection.Close
   Set Connection = Nothing    
End Sub
Public Sub Executar_Query(query As String)    
   Set result_set = New ADODB.Recordset    
   Abrir_Conexao  
   result_set.Open query, Connection, adOpenStatic    
   Set result_set = Nothing
   Fechar_Conexao
End Sub
Public Sub Executar_Data_Reader(query As String)
   Set data_reader = New ADODB.Recordset
   data_reader.Open query, Connection, adOpenStatic
End Sub
Public Sub Fechar_Data_Reader()
   data_reader.Close
   Set data_reader = Nothing
   Fechar_Conexao
End Sub