Erro 3021 Como Resolver?

[kempo_ghost]

Bom dia

alguém me poderia ajudar com este código, ele chega ao fim do ultimo registo da tabela e não continua

Private Sub cmddistritos_Click()

Dim num As Integer

Dim registoscp As Integer

Dim palavra As String

bdgestadvogados.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd\gestadvogados.mdb"

tcodigospostais.Open "SELECT * FROM [codigospostais] ORDER BY [id]", bdgestadvogados, adOpenDynamic, adLockOptimistic

tdistritos.Open "SELECT * FROM [distritos] ORDER BY [Nome]", bdgestadvogados, adOpenDynamic, adLockOptimistic

frmActualizacao.MousePointer = vbHourglass

num = 10

While num < 50

Label1.Caption = num

While Not tdistritos.EOF

With tdistritos

.Requery

.Find "[id] like '" & num & "'"

palavra = tdistritos!nome

.Update

'While Not tcodigospostais.EOF

With tcodigospostais

While Not tcodigospostais.EOF

.Requery

.Find "[Distrito] like '" & num & "'"

.Fields(1) = palavra

.Update

lblactual.Caption = .Fields(0).Value

Wend

End With

'Wend

tcodigospostais.MoveFirst

End With

tdistritos.MoveNext

Wend

num = num + 1

Wend

End Sub

Se alguém me pudesse ajudar agradecia.

O erro que da é 3021.

Obrigado

Luis Ricardo

[kuroi]

e eu sei qual é o erro 3021?

ajuda se você passar a descricao do erro e mostrar qual a linha q da o erro.

senao não da pra ter certeza. mas acho q em vez de:

With tcodigospostais
While Not tcodigospostais.EOF
.Requery
.Find "[Distrito] like '" & num & "'"
.Fields(1) = palavra
.Update
lblactual.Caption = .Fields(0).Value
Wend
End With

você devia fazer:

With tcodigospostais
.Requery
.Find "[Distrito] like '" & num & "'"
If Not tcodigospostais.EOF
.Fields(1) = palavra
.Update
lblactual.Caption = .Fields(0).Value
End If
End With