Loop Vb 6

[Guest Junior Silva]

Sei que está faltando alguma coisa mas não sei o q?, se puderem de ajudar?

sqlb = "select * from remocao where Ucase (situacao)='" & UCase("TRANSITO") & "'"

Set ff = conn.execute(sqlb)

If ff.EOF Then

MsgBox "Não há pendências em remoções"

Else

Do Until ff.EOF

If ff("previsao") < Date Then

veiculo.Caption = ff("veiculo")

placa.Caption = ff("placa")

evento.Caption = ff("evento")

retirada.Caption = ff("retirada")

dataped.Caption = ff("dataped")

previsao.Caption = ff("previsao")

solicitante.Caption = ff("solicitante")

situacao.Caption = ff("situacao")

Else

MsgBox "Existem veículos em trânsito mas não estão pendentes"

End If

ff.MoveNext

Loop

End If

Obrigado

Juniot

[Graymalkin]

Aparentemente está tudo certo. Se você tem certeza de que o resultado da consulta retorna mais de um registro tente reparar o banco de dados (no caso do Access). Experimente também dar uma olhada na propriedade RecordCount do objeto "ff" após a abertura da tabela.

Abraços,

Graymalkin