asp for 循环中不能屡次执行select

asp for 循环中不能多次执行select ？
  dim k 
  dim dbf_arr(7,1)
' dbf_arr(7,1)中所有值都没问题，形如xyee
  set rs=server.CreateObject("adodb.recordset") 
  for k=0 to 7 '总共8个表。要是多了得修改此处
    sql_kc1="select count(*) as num from "&dbf_arr(k,0) 
    rs.Open sql_kc1,conn,1,1
    response.Write rs("num")
  next



------解决方案--------------------

for k=0 to 7 '总共8个表。要是多了得修改此处

    sql_kc1="select count(*) as num from " & dbf_arr(k,0)

    Set rs = CreateObject("ADODB.RecordSet")

    rs.Open sql_kc1,conn,1,1

    response.Write rs("num")

    rs.Close

    Set rs = Nothing

next

------解决方案--------------------

  dim k 

   dim dbf_arr(7,1)

 ' dbf_arr(7,1)中所有值都没问题，形如xyee

   set rs=server.CreateObject("adodb.recordset") 

   for k=0 to 7 '总共8个表。要是多了得修改此处

      sql_kc1="select count(*) as num from "&dbf_arr(k,0) 

     rs.Open sql_kc1,conn,1,1

     response.Write rs("num")

     rs.close

   next

   set rs=nothing