Hjälp med If

SSK="SELECT Id FROM Lag_i_Elitserien WHERE Lag='Södertälje' AND Sasong1='" & Sasong3 & "'"
Set Elitlag=objConnect.Execute(SSK)
If Elitlag.EOF Then
     Response.Write("Inga Lag funna")
Else
strSQL1="SELECT Id1, Datum, Tid, Omgang, L1.Lag AS hemma, L2.Lag AS borta FROM (Elitserien AS elit INNER JOIN Lag_i_Elitserien AS L1 ON L1.ID=elit.HemmaLag) INNER JOIN Lag_i_Elitserien AS L2 ON L2.ID=elit.BortaLag WHERE Sasong='" & Sasong3 & "' AND HemmaLag=" & Elitlag("Id") & " OR BortaLag=" & Elitlag("Id") & " ORDER BY Id1"
Set Matcher = Server.Createobject("adodb.RecordSet")
Matcher.Open strSQL1, objConnect, 1, 2
If Matcher.EOF Then
     Response.Write("Inga Matcher funna")
Else
     Response.Write("<Form name=""Match"" action="""& Request.ServerVariables("SCRIPT_NAME") & "?Sasong3=" & Sasong3 &""" method=""post"">")
     Response.Write("<SELECT name=""Matchnr"" OnChange=""this.form.submit();"">")
     Response.Write("<OPTION value=0>-- VÄLJ --</OPTION>")
   Do until Matcher.EOF
          Response.Write("<OPTION value=""" & Matcher("Id1") & """>" & Matcher("Omgang") & " " & Matcher("hemma")&"-"&Matcher("borta") & "</OPTION>")
 Matcher.MoveNext
     Loop
     Response.Write("</SELECT>")
End If
End If

Jag får det här felmeddelandet när det inte finns några poster, med det urvalet jag valt:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

Det är ju korrekt. Men jag vill ju ha mitt eget meddelande.

Hoppas någon kan hjälpa mig?