对打开的 Recordset 无法调用 Fields.Delete和Append 方法， 下面2段话是我从网上查到的，问题是如果确实需要，如何解决这个问题呢？难道需要另外再定义一个recordeset，然后把之前的recordset的内容copy给它，再用这2个方法？ 下面是我的一段代码,Access2010, 无法执行，供大家参考

    Dim dbs As DAO.Database
    Dim rsSQL As DAO.Recordset
    Dim strSQL As String
    
    Set dbs = CurrentDb
   
    'Open a snapshot-type Recordset based on an SQL statement
    strSQL = "SELECT top 1 * FROM Table1"
    Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenDynaset)
   
    rsSQL.Fields.Delete ("name")
    rsSQL.Fields.append （"choose"， Boolean）  'append的语法不知道怎么写

------------------------------------------------------------------------------------

Delete 方法 （ADO Fields 集合）

从 Fields 集合中删除对象。

语法

Fields.Delete Field

参数

Field 变体型，指定将要删除的 Field 对象。该参数必须是 Field 对象名而不能是序号位置或 Field 对象本身。

说明

对打开的 Recordset 调用 Fields.Delete 方法将引起运行时错误。

----------------------------------------------------------------------------------------------------

Append 方法

对打开的 Recordset 或已设置 ActiveConnection 属性的 Recordset，调用其 fields.Append 方法将引发运行时错误。只能将字段追加到没有打开并且尚未连接到数据源的 Recordset。一般地，通过 CreateRecordset 方法或通过将新 Recordset 对象显式赋给对象变量所创建的都是新 Recordset 对象