error '80020009'

Set objMessageCountRS = GetRecordset("SELECT thread_id, COUNT(*) FROM messages WHERE thread_id IN (" & strThreadList & ") GROUP BY thread_id ORDER BY thread_id DESC;")objMessageCountRS.CacheSize = 100If Not (objMessageRS.BOF And objMessageRS.EOF) Then objMessageRS.MoveFirst objMessageCountRS.MoveFirstDo While Not objMessageRS.EOF [color=#FF0000]ShowMessageLine 1, objMessageRS.Fields("message_id"), objMessageRS.[/color]Fields("message_subject"), objMessageRS.Fields("message_author"), objMessageRS.Fields("message_author_email"), FormatTimestampDisplay(objMessageRS.Fields("message_timestamp")), objMessageCountRS.Fields(1) - 1, "forum", 0 objMessageRS.MoveNext objMessageCountRS.MoveNextLoopEnd If'Close Message DB objectsobjMessageCountRS.CloseSet objMessageCountRS = NothingobjMessageRS.CloseSet objMessageRS = NothingEnd Ifeste é o codigo que esta dando o erro, é um forum
quando tem apenas 1 registro não da erro agora quando insere o segundo registro começa a aparecer este erro