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