如何使用SQL删除除指定字段之外的其他字段(字段数不是固定)

  在一个程序中，使用控件（比如按钮），对表清空记录，并初始化，使表只含有指定字段

如表源为：table1,分别有aa,bb,cc,dd...很多字段，想要根据代码清空table1所有记录并删除aa、bb以外所有字段。

  我想使用fields.count来达到它，如下代码：但是运行到下docmd 是,程序报错:table1已被锁定?请诸位帮忙解答,不胜感激!!!

Private Sub Command0_Click()
   Dim jdStr As String
   Dim StrSel As String
   Dim ppp As String

   Dim rs As ADODB.Recordset

   Dim num As Integer

   StrSel = "Select * FROM table1"

   Set rs = CreateObject("ADODB.Recordset")
   rs.Open StrSel, CurrentProject.Connection, 3, 3
   num = rs.Fields.Count

   If num > 2 Then
      For i = 2 To rs.Fields.Count - 1

        ppp = rs.Fields(i).Name
        jdStr = "alter table table1 drop column " & ppp
        DoCmd.RunSQL jdStr

      Next
   End If

end sub

点击下载此附件