Undantag inträffade

Har bl.a den här do-satsen i en fil. Men när jag kör den så får jag "Undantag inträffade" på den första if-satsen. Vad är det för fel...fattar nada!

Do while OK = "no"
		
		If Prayer("mo6") = "N" then
			OK = "no"
		Else
			If Prayer("Tredje") = "yes" then
				Pass("Owner") = Prayer("Id")
				OK = "yes"
			Else
				Set Tredje=conn.Execute("SELECT * FROM Pass Where Owner = '"& Prayer("Id") &"' Order by Ar DESC, Manad DESC, Dag DESC")
				If Tredje.EOF then
					Pass("Owner") = Prayer("Id")
					OK = "yes"
				Else
					Senast = Tredje("Ar") & "-" & Tredje("Manad")  & "-" & Tredje("Dag")
			
					If DateDiff("d", Senast, Datum) > 14 then
						Pass("Owner") = Prayer("Id")
						OK = "yes"
					Else
					End If
				End If
				Tredje.Close
			End If	
		End If
	If Prayer.EOF then
		Prayer.MoveFirst
	Else
		Prayer.MoveNext
	End If

	Loop

Tack för all hjälp