ADODB.Field Error '8002009'

I'm getting this error on my page:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

I know that this error usually means that the record I'm trying to pull from a table doesn't exist or the table is empty.  But this isn't actually true in my case.

I'm trying to Pull two records from the same table.

Example:

I'd like my page to Display:

Doe, Jon A Mr. - Originator - Created Task - - 10/7/2004   <-- Line 1
Doe, Jon A Mr. - Originator - Tasked - Sample, Jane B Mrs. - Action Code - 10/7/2004  <-- Line 2
Sample, Jane B. Mrs. - Action Code - Delegated - Example, Don C. - Action Code - 10/7/2004  <-- Line 3

Etc...etc..

Everything works fine except when I try to get the second person's info from the table.  So this works:

Doe, Jon A Mr. - Originator - Created Task - - 10/7/2004 <-- Line 1
Doe, Jon A Mr. - Originator - Tasked - 1612 - Action Code - 10/7/2004 <-- Line 2

But If I try to get the name for ID 1612 is Get the ADODB.Field Error '80020009' - But the record does exist!  I doesn't work at all if I try to put a If not (not myRs.EOF AND myRs.BOF) Then into the code - then it nothing shows up.

My Code:

<!--#INCLUDE FILE="inc_Config.inc"-->
<!--#INCLUDE FILE="inc_New_Task_Header.asp"-->
<%
  'Count the Number of records in tblActionCode
   Set objConn = Server.CreateObject("ADODB.Connection")
       objConn.Open ConnString
       
   Set Rec = objConn.execute("SELECT COUNT(*) FROM tblTaskHistory WHERE TaskerID = '" & Session("TaskerID") & "'")
   
   MyCount = Rec(0)
   
%>
<TABLE Border="1" Cellspacing="0" cellpadding="0" bordercolor="#C0C0C0" bgcolor="#C0C0C0" width="65%">
  <TR>
    <TD bgcolor="#7F7F7F" colspan="2" align="center"><Font Face="Arial" Size="2" Color="White">Delegation Entries: </Font>
        <Font Face="Arial" Size="3" Color="White"><B><%=Rec(0)%></B></Font>
    </TD>
  </TR>
  <TR>
    <%
    'Database Connection to tblTaskHistory
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
      myConn.Open ConnString 'from your config.inc file
      mySQL = "SELECT * FROM tblTaskHistory WHERE TaskerID = '" & Session("TaskerID") & "'"
Set myRs = myConn.Execute(mySQL)
%>

      <%While Not myRs.EOF%>      
      <TD align="center">

      <%
    'Get the User's Name
    'Database Connection to tblPersonnelRoster
    Dim Pers1Conn
    Set Pers1Conn = Server.CreateObject("ADODB.Connection")
        Pers1Conn.Open ACConnString 'from your config.inc file
        Pers1SQL = "SELECT * FROM tblPersonnelRoster WHERE ID ='" & myRs("Person1ID") & "'"
    Set Pers1Rs = Pers1Conn.Execute(Pers1SQL)
      %>
                  <%
    'Get the Person2's Name
    'Database Connection to tblPersonnelRoster
    Dim Pers2Conn
    Set Pers2Conn = Server.CreateObject("ADODB.Connection")
        Pers2Conn.Open ACConnString2 'from your config.inc file
        Pers2SQL = "SELECT [Last],[First],[Grade] FROM tblPersonnelRoster WHERE ID ='" & Trim(myRs("Person2ID")) & "'"
    Set Pers2Rs = Pers2Conn.Execute(Pers2SQL)
      %>

      <%
    'Get the Action Type
    'Database Connection to tblTaskAction
    Dim ATConn
    Set ATConn = Server.CreateObject("ADODB.Connection")
        ATConn.Open ConnString 'from your config.inc file
        ATSQL = "SELECT * FROM tblTaskAction WHERE TaskActionID ='" & Trim(myRs("ActionID")) & "'"
    Set ATRs = ATConn.Execute(ATSQL)
      %>

                       <%=Pers1Rs("Last")%>,&nbsp;<%=Pers1Rs("First")%>&nbsp;
                       <%=Pers1Rs("MiddleInitial")%>,&nbsp;<%=Pers1Rs("Grade")%> -
                       <%=myRs("Person1Title")%> - <%=ATRs("TaskAction")%> -
                        <%=MyRs("Person2ID")%>
             <%=myRs("Person2Title")%> - <%=myRs("ActionDate")%>


        <%'=Pers2Rs("Last")%>  'This is causing the ERROR - If I take it out it works fine but only displays the persons
                                                       'ID instead of the Last Name

      <%myRs.movenext%><%WEND%>

<%
'Close Connection to Pers1
Pers1Rs.Close
Pers1Conn.Close
Set Pers1Conn = Nothing
Set Pers1Rs = Nothing
Set Pers1SQL = Nothing
%>
<%
  'Close Connection to Pers2
Pers2Rs.Close
Pers2Conn.Close
Set Pers2Conn = Nothing
Set Pers2Rs = Nothing
Set Pers2SQL = Nothing

  'Close Connection to ATConn
ATRs.Close
ATConn.Close
Set ATConn = Nothing
Set ATRs = Nothing
Set ATSQL = Nothing
%>

<%
  'Close Connection to tblTaskHistory
myRs.Close
myConn.Close
Set myConn = Nothing
Set myRs = Nothing
%>

      </TD>
  </TR>
</TABLE>

<%
  'Close Count Connection
  objConn.Close
  Set objConn = Nothing
  Set Rec = Nothing
%>