Underligt: Min RS "udløber"

Hejsa,
Jeg har et loop som udtrækker nogle informationer fra en mySQL database... Men når jeg kører det giver det denne fejl:

ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.




Her er koden:

                            do while not rs.eof
                           
                                dim    strCom_name, strCom_type, strCom_department, strCom_desc
                               
                                strCom_name = rs("com_name")
                                strCom_type = rs("com_type")
                                strCom_department = rs("com_department")
                                strCom_desc = rs("com_desc")
                                intId = rs("id")
                               
                                    response.Write "<tr><td class=""lighttable"">"&strcom_name&"</td><td class=""lighttable"">"&strcom_desc&"</td>"_
                                                    &"<td class=""lighttable"">"&trans(""&strcom_type&"")&"</td><td class=""lighttable"">"&strcom_department&"</td>"_
                                                    &"<td class=""Lighttable"" align=""right""><a href=""default.asp?func=proddb&show=supp&do=deletecontact&id="&intId&"&supp="&request("id")&""">"&trans("Delete")&"</a>"_
                                                    &" | "&trans("Edit")&"</td></tr>"
                                                       
                            rs.movenext
                            loop