Erro no loop com EOF

Tenho em um botão do meu formulário o código abaixo. Só que sempre dá um erro dizendo:

"Falta de parametros. Era esperado 1."

A questão acho que é que "item" é uma consulta com uma condição where e não uma tabela direta. Meu objetivo é renumerar os itens após uma exclusão

   Dim StrItem As Integer
   Dim db As Database
   Dim rs As Recordset
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Item")
   StrItem = 0
   Do While Not rs.EOF
   rs.Edit
   rs(0) = StrItem + 1
   StrItem = item
   rs.Update
   rs.MoveNext
   Loop
   rs.Close

Olá Gilson Fontanella,

Tente colocando a instrução SQL diretamente.
Exemplo:
Set rs = db.OpenRecordset("SELECT * FROM tabelaDados.... WHERE ...")

e no final do código não se esqueça de colocar:
set rs = nothing
set db = nothing

Abraço