主题：[求助]ADOXBuilder COM组建调用返回了错误HRESULT E_FAIL

Dim i As Integer
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
Do
.AddColumn("a" & i,ADOXType.String, 20) '增加字符列,长度为20
If i > 80 Then
Exit Do
End If
i +=1
Loop
End With
Builder.Close() '关闭ADOXBuilder
Syscmd.Project.Open(ProjectFile)

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
For Each dl As DataCol In DataTables("表A").Datacols
If dl.name.Contains("a") Then
.DeleteColumn(dl.name )
End If
Next
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)

Functions.Execute("新增临时列")
Functions.Execute("删除临时列")