这个问题可能是由于变量名称与Access VBA的保留字冲突引起的。要解决这个问题,可以将变量名更改为不同的名称或使用“[]”将保留字括起来。
以下是一个示例代码,其中包含如何更改变量名和如何使用“[]”来解决该问题:
Dim fldNewFolder As Folder
Dim strNewFolder As String
'更改变量名
strNewFolder = "New Folder Name"
Set fldNewFolder = FSO.CreateFolder(strNewFolder)
'使用方括号解决保留字问题
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT [Table].[Field1], [Table].[Field2] FROM Table;")