sql2000一个表里的数据量是3万条，向里面循环添加200条记录，就特慢？求如何优化数据库啊？索引吗？

do while 下面的语句循环添加200次

  set rs1=server.CreateObject("adodb.recordset")
  rs1.open "select * from [聊天记录]",conn,1,3
  rs1.addnew
rs1("username")=rs("username")
rs1("title")=title
rs1("adddate")=now()
  rs1.update
rs1.close
set rs1=nothing


loop

------解决方案--------------------
do while not rs.eof
conn.execute("insert into [聊天记录] (username,title,adddate) values ('"&rs("username")&"','"&title&"',getdate())")
rs.movenext
loop