我正在尝试创建一个 Excel 程序，该程序可以使用 VBA 在同一文件中获取从sheet1到sheet2的数据。但是当我声明ADODB时，它没有出现在下拉列表中。当我尝试运行 sub 时，出现“用户定义类型未定义”错误。有人可以与我分享任何修复吗？
代码如下：
Sub testsql()
'declare variable
Dim objMyConn As ADODB.Connection
Dim objMyCmd As ADODB.Command
Dim objMyRecordSet As ADODB.Recordset
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordSet = New ADODB.Recordset
'open connection
objMyConn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & wbWorkBook & ";Extended Properties=Excel 8.0;"
objMyConn.Open
'set and execute command
Set objMyCmd.activeconnection = objMyConn
objMyCmd.CommandText = "select top 10000 [Die No], Description from DieMaintenanceEntry"
objMyCmd.CommandType = adcmdtext
'open recordset
Set objMyRecordSet.Source = objMyCmd
objMyRecordSet.Open …最近，我受命在工作场所中修改Lotus Notes应用程序。在开始之前，我使用Replication> New Replica选项在PC驱动器中创建了实时程序的新副本。
修改并输入一些伪数据后，我返回检查实时程序。只是要注意，不仅我的虚拟数据出现在实时服务器中，而且我修改的表单设计也替换了实时设计（幸运的是，我刚刚添加了一些字段，所以没什么大问题）。
自然，我从实时版本视图中删除了虚拟数据。当我回到测试版本时，当我尝试删除完全相同的虚拟数据时，出现错误提示
Document locking is enabled. You must lock the document before deleting.
因此，我这样做了，这又给我一个错误，指出该文档已被删除。这意味着尽管删除了我的原始表单数据，但视图数据仍然处于混乱状态。我可以打开它并查看表单的内容，但是我不能再对其进行编辑。
我很幸运通过实时版本删除了虚拟数据，但是现在我想从测试版本中删除相同的数据。
有什么我可以解决的吗？
我不确定这是否是一个正确的问题，但现在已经困扰了我很长时间，我希望是否有人可以分享他们在此问题上的经验。
昨天我创建了一个视图，并已经为每列选择了我想要的字段。我检查了样本数据，并对结果感到满意。所以我保存了它，并称之为一天。
然后今天，当我回来继续工作时，我注意到第一列的字段（最初为EmpID）已完全更改为另一个字段，即AppDate。起初，我以为可能是我不小心单击了某个错误以在保存之前更改了它（尽管我确定情况并非如此），所以我将其更改回并再次测试。仅使该列完全不更改其数据。另外，我确定这不是查询公式问题，因为我将其设置为简单搜索，因此应该很简单。
我检查了列属性，在“高级”选项卡中，该名称的确显示为EmpID，但显示的数据仍停留在AppDate上。因此，我尝试选择另一个字段，然后在“设计视图”中单击“刷新”，它将更改为新字段，没有问题。然后我选择EmpID，再次单击刷新，回到昨天的状态，恢复正常。
这让我感到担心，因为如果字段更改不是我的错误，并且在我的程序启动时再次发生，将会发生什么。有没有人曾经经历过这种经历，您对此有何解决方法？