Em uma rotina de atualização, estou recebendo esta mensagem

"contagem de bloqueio de compartilhamento excedida", aumente a entrada de registro Maxlocksperfile" , onde aumento isto ?

Private Sub ExecutarConsulta()
On Error GoTo final
Dim cont As Long
DBEngine.SetOption dbMaxLocksPerFile, 200000
cont = 0
Screen.MousePointer = 11
Dim db As DAO.Database
Dim Rst As DAO.Recordset
(...seu código)

(...)

Marcone, mas não é dao é ado.

pessoal, ainda não consegui resolver, se alguem puder ajudar....

Para ADO, basta adaptar o código abaixo:

 

 Dim cnn As New ADODB.Connection
(...)
   cnn.Provider = "Microsoft.Jet.OLEDB.4.0;"
   cnn.Open ".NorthWind.mdb"
   cnn.Properties("Jet OLEDB:Max Locks Per File") = 300000

vealu marcone, zerou. só um comentário, acho que isto não é muito comum de acontecer não é ?, pois esta duvida rola em outro fórum a dias, e ninguém respondeu.