pessoal, estou abrindo a conexão com o banco da forma abaixo, mas não da para usar seek, na verdade, na maioria das linhas que usava seek, passei para select, mas dependendo da rotina, o seek ficaria mais rapido, Tem como continuar usando seek ???

On Error GoTo Erro_Conexao
  Set Cnn = New ADODB.Connection 'agora instaciamos utilizando o new
  Screen.MousePointer = vbHourglass
  With Cnn
   .Provider = "Microsoft.Jet.OLEDB.4.0"
   .ConnectionString = "Data Source=" & App.Path & "GESTOR.mdb" 'caminho do banco
   .Properties("Jet OLEDB:database Password") = "OSTRA"
   .Open
    Cnn.Properties("Jet OLEDB:Max Locks Per File") = 100000
  End With
  Screen.MousePointer = vbDefault
  Exit Sub

Vc falou q não dá pra usar "seek" como assim?? Qual o problema q aparece?

APARECE QUE O PROVEDOR NÃO DA SUPORTE A INDICES, AH O BANCO É ACCESS XP