表名称可以直接从缓存里读出来吧，你这样查询数据库太多次了

  dim TableName
  RS.Open "Select * From KS_Channel Where ChannelID=" & ChannelID,Conn,1,3
  If ChannelID < 100 Then '没办法，俺苯苯，不知道还有其他方法能直接得到对应当前栏目的表名称吗？
   TableName="KS_" & RS("ModelEname") 
  Else
   TableName="KS_U_" & RS("ModelEname")
  End If

  RS.Close

改成

 tablename=ks.c_s(channelid,2)