[Erro 3021 Como Resolver?]

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