Visual Basic - Registro activo

Luego de hacer una consulta, utilizo el siguiente codigo:

resultado.Label1.Caption = .Fields("fecha4")
tabla.MoveNext
resultado.Label2.Caption = .Fields("fecha4")
tabla.MoveNext
resultado.Label3.Caption = .Fields("fecha4")
tabla.MoveNext
resultado.Label3.Caption = .Fields("fecha4")

Pero es obvio q si no hay ningun registro activo (osea si tabla.EOF) me da ese error... Como hago para que al no encontrar mas regitros activos no siga asiendo las asigmaciones al form resultado
GRACIAS

Consulta la propiedad EOF de Tabla despues de Tabla.MoveNext y si es cierto no ejecutes el resto