将从数据库中的一张表中查询出来的结果集写到另外一张表中

Question

请问怎样将从数据库中的一张表中查询出来的结果集写到另外一张表中？
我按照论坛里各位的建议，写出如下代码：
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=szx"
SelectSQL = "insert into SelDocuments select * from AllDocuments where " & SelectSQL
    Adodc1.RecordSource = SelectSQL
    Adodc1.Refresh
提示“对象关闭时，操作不被允许”，请教？

Answer 1

userpwd = DeCrypt(pwdtxt, uidtxt)
        loginuid = uidtxt
        databasename = databasenametxt
        cn.ConnectionString = "provider=" & providercob & ";server=" & servernametxt & ";uid=" & uidtxt & ";pwd=" & userpwd & ";database=" & databasename
        cn.CursorLocation = adUseClient
        cn.Open
        logsuccess = True
以上是登陆的时候连接数据库的。以下是把筛选出来的内容追加到别的表中。
s = "SELECT 职工编号, 姓名,性别,出生日期, 民族,政治面目,文化程度,职务,参加工作日期,职称等级,身份证号,部门,籍贯,'" & ComputerName & "','" & glid & "'"
s = s & " FROM 人事档案 where (人事档案.姓名 is not null)"
cn.Execute "INSERT INTO p_人事档案 ([s1], [s2], [s3], [s4], [s5], [s6], [s7],[s8],[s9],[s10],[s11],[s12],[s13],username,glid) " & s