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