ADO常用方法——Append
功能：将对象追加到集合中，如果集合是fields，可以先创建field对象然后再将其追加到集合中
格式：1.collection.append object
Collection:集合对象
Object：对象变量，代表所要追加的对象
例：
Dim objcmd as new command
Dim Parm as new Parameter
‘创建新的Parameter对象
Set Parm=objCmd.creadParameter(“用户名”,adVarChar,adParamInput,10)
‘将Parm追加到Parameters集合中
Objcmd.Parameters.append Parm
2.fields.Appendname,type,definedsize,attrib
Name:字符串，新field对象名称，不得与fields中的任何其它对象同名
Type：新字段的数据类型，其默认值为adEmpty
Definedsize：可选，指示新字段定义大小，默认definedsize未指定
Attrib：可选，指定新字段属性，默认值adflddefault
注：1.在调用fields.append方法前没设置cursorlocation属性，当使用open方法打开recordset时，cursorlocation将被自动设置为aduseclient。2.对打开的recordset或已设置actionconnection属性的recordset，调用fields.append方法将引发运行时错误
例：Dim objDataSource as new recordset
Dim obiRs as new recordset
Dim intrecord as integer
For intrecord=0 to objRs.fields.count-1
objDataSource.fields.append objRs.fields(intrecord).name,adVarChar,_
objRs.fields(intrecord).definedSize
Next ‘将记录集的数据都追加到临时记录集的