Undgå fejl ved tomt Recordset

Hej eksperten.

Findes der en simpel måde man kan undgå at den smider denne fejl når mit recordsæt er tomt?

-----------------------------
ADODB.Recordset.1 (0x80020009)
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
-----------------------------

jeg bruger følgende kode til udtræk

<%
StrSQL = ""
StrSQL = "Select * from person WHERE ID="+id
Set objRSx = objConn.Execute(strSQL)
%>

<table width="400" border="0" cellpadding="3" cellspacing="0" bgcolor="EEEEEE" class="text">
    <tr bgcolor="#c1c1c1">
      <td colspan="3"><strong>Historik</strong></td>
    </tr>
    <tr>
      <td width="80"><strong>Dato</strong></td>
      <td><strong>Beskrivelse</strong></td>
      <td width="40"><strong>Status</strong></td>
    </tr>
<%Do%>
    <tr>
      <td width="80"><%=objRSx("dato")%></td>
      <td><%=objRSx("beskrivelse")%></td>
      <td width="40"><%=objRSx("status")%></td>
    </tr>
<%
    objRSx.MoveNext
    Loop While Not objRSx.EOF
%>
  </table>