[Resolvido]Run Time Error

Boa Tarde pessoal, tudo bom?

Tenho uma aplicaçãozinha em que na hora de rodar uma condição While ele da o seguinte erro:

Run-time error '-2147217887 (80040e21)': File sharing lock count exceeded. Increase MaxLocksPerFile registry entry.

Alguém poderia me dizer como eu posso incrementar para que o registro entre?

Obrigada!

Poste sempre o código completo quando houver, e a linha para a qual o erro depura para a gente poder analisar melhor, pois existem várias situações que podem gerar o mesmo erro. Isso ajuda no esclarecimento da questão. Grato.

Esta é a parte do código que ele informa o erro:

Dim rs As ADODB.Recordset
Set rs = CreateObject("Adodb.recordset")
rs.Open "Select * from tabela", cnn, adOpenKeyset, adLockPessimistic, adCmdTableDirect

While Not rs.EOF
rs.Fields("Coluna1") = Mid(rs.Fields("Material"), 1, 1)
rs.Fields("Coluna2") = Round(rs.Fields("Valor") - rs.Fields("Montante"), 2)
rs.MoveNext
Wend

O erro acontece onde está em vermelho...

Se puder me ajudar por favor....

Cibele

Experimente retirar do código essa linha em vermelho.

Como a linha:

While Not rs.EOF

Diz: Faça enquanto não for o final do recordset.

Creio que ele executará todas os registros automaticamente.

Agora, se retirar não "funfar"

coloque:

rs.moveFirst
While Not rs.EOF

No aguardo.

Abraços

Oi Balem, não consegui resolver com as soluções que você passou... Mas vasculhando na internet achei um post em inglês onde o cara tinha o mesmo problema que o meu.

O problema é resolvido colocando esta linha no começo do código, que aumenta o tamanho do MaxLocksPerFile com a linha abaixo:

Application.DBEngine.SetOption dbMaxLocksPerFile, 1000000

Interessante Bella!

Valeu pelo retorno e por compartilhar a solução encontrada.

Boa sorte !!