'構造recordset 的字段名和類型
    rsconstruct.fields.append "field1", adinteger
    rsconstruct.fields.append "field2", advarwchar, 128
    rsconstruct.fields.append "field3", advarwchar, 128
    rsconstruct.fields.append "field4", advarwchar, 128
    rsconstruct.open
    '增加記錄至reocrdset
    if coltemp.count > 0 then
        for i = 1 to coltemp.count
            rsconstruct.addnew
                   rsconstruct.fields("field1") = 0
                   rsconstruct.fields("field2") = coltemp.item(i).subject
                   rsconstruct.fields("field3") = coltemp.item(i).description
                   rsconstruct.fields("field4") = coltemp.item(i).refurl
            rsconstruct.update
        next