Dim i As Integer
    Dim rsConstruct As ADODB.Recordset
    Set rsConstruct = New ADODB.Recordset

'构造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