数据库更新数据问题

rs.Open "select * from 无线固话清单", conn, 1, 1（好像此句要修改）
If rs.RecordCount > 0 Then
 rs.MoveFirst '这行一定要加上
  
  For i = 0 To rs.RecordCount - 1
      rs("aaa") = i
  Next i
End If

rs.Open "select * from 无线固话清单", conn, 1, 1
If rs.RecordCount > 0 Then
 rs.MoveFirst '这行一定要加上
   
  For i = 0 To rs.RecordCount - 1
     conn.execute " update 无线固话清单 set aaa="& i &""
     rs.movenext
  Next i
End If