start:
    If X = "True" Then
Me.TimerInterval = 5000
        MsgBox Firma & ", " & Mjesto & ", " & Zemlja, , "Pronaeno je"
Me.TimerInterval = 0
    Rs.MoveNext
    Else
        DoEvents
    GoTo start
    End If