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

Daniela, te suguiero que cambies los nombres de los Label para que todos sean iguales y sean una matriz de controles. De esta forma podrias hacer lo siguiente

Dim i as Integer
For i=0 To 3
On Error Goto Nohaymas
resultado.Label1(i).Caption = .Fields("fecha4")
tabla.MoveNext
Next
Nohaymas:

Como veras Label1 es el nombre que tienen todos los labels que vas a usar, "i" es la variable que hace las veces de indice.

Saludos desde Lima