Expected Loop Error

I'm getting the following error in internet  explorer:

######################################
Error Type:
Microsoft VBScript compilation (0x800A03FB)
Expected 'Loop'
######################################

Here's my code: Can anyone please point out the problem in my code.

######################################
<%
dim accessdb, Conn, dbPath, cn, rs, sql

accessdb="staffdata.mdb"

dbPath = "C:\Staffdata.mdb"
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT LName, FName, Title, Photograph FROM tblstaff WHERE EStatus = 'Active';"

rs.Open sql, Conn
%>
<center>
<img align="center" src="pix/board01.gif">
</center>
<table BORDER="1" BORDERCOLOR="#558AF8" align="center" width="640">
<tr>
<%
rs.movefirst
do while not rs.eof
%>
<td align="center"><img src=../Upload/<%= rs("Photograph") %> align=left width="70" height="70"><b>
<%= rs("LName") %>
</b <b>
<%= rs("FName") %>
</b>
<br>
<%= rs("Title") %>
</td>
</tr>

<%
rs.movenext
%>
</table>

</body>
</html>

<%
rs.close
set rs=nothing
%> 
###########################################

Thank you KCWebMonkey!  The 'Loop' function worked.  Thank you!

GROQ