vb6使用ADOX操作access数据库连续使用Append添加查询语句时出现DBID错误,求助

代码如下Option ExplicitDim cmd As New ADODB.CommandDim cat As New ADOX.CatalogPrivate Sub Form_Load()
    ' 打开数据库
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\miniDB.mdb;"    cmd.CommandText = "Select * From 表1"
    cat.Views.Append "MyContacts1", cmd
    
    cat.Views.Append "MyContacts2", cmd
            
    cat.Views.Append "MyContacts3", cmdEnd Sub现假设MyContacts1,MyContacts2,MyContacts3都不存在运行上面的代码后
    cat.Views.Append "MyContacts2", cmd
            
    cat.Views.Append "MyContacts3", cmd这两句会出错,错误为实时错误 -2147217802(80040e76)
DBID 无效后来发现,cat.Views.Append只能使用一次,再次使用时就会发生如上错误请问大侠原因及解决方法