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