Vba Lotus notes数据库路径

我已经创建了一个宏，它将从LotusNotes中提取数据，并且运行良好。现在发生的事情是，LotusNote的服务器名称已更改，并且我的宏无法支持新服务器。不确定，是吗？它给了我一个searchCount错误。请看一看？我给你的旧代码和新代码，请建议，如果我遗漏了什么

旧代码：

Set nSess = CreateObject("Lotus.NotesSession")
DSN1 = ("Driver={Lotus NotesSQL Driver (*.nsf)};Server=OLDSERVER Capital Markets;Database=Notes_DBs/GMI_CoreTrack/mlctrack.nsf;Uid=" & myUsername & ";Pwd=" & myPassword & ";")
Call nSess.Initialize(myPassword)
Set db = nSess.GetDatabase("OLDSERVER", "Notes_DBs/GMI_CoreTrack/mlctrack.nsf")
Set iviews = db.GetView("QA\QA Schedule")
strSearchKeyIssue = "FIELD AQAExecDate >= " & StartDate & " AND FIELD AQAExecDate <= " & EndDate
searchCount = iviews.FTSearch(strSearchKeyIssue, 0)
Set viewEntry = iviews.GetFirstDocument

---

似乎是一个未知的问题

在该特定副本上首次创建字段时，如果该字段已在UNK表中标记为文本字段，则即使您有日期值，也不能在视图中搜索日期值

UNK表是每个副本的专用表。这可能就是新服务器出现问题的原因

详情如下:

解决方案如下所述：

要查找可能发生这种情况的位置，可以使用Notespeek执行以下操作： 搜索字段并查找不正确的引用 改变它。修复字段后，UNK表仍然需要 以及全文索引。要做到这一点，你必须这样做

删除全文索引。 压缩数据库。这将重建未知的表。 重新建立数据库的索引。

---

请检查数据库在新服务器中是否为全文索引？如何检查，因为这是我公司的lotus notes，我可能无权检查。我与IT团队一起检查数据库是否为全文索引自己检查。打开它并尝试进行全文搜索。您想让我检查下面的搜索查询是否在lotus notes搜索字段中工作吗？现场AQAExecDate>=2014年7月1日，现场AQAExecDate

Set nSess = CreateObject("Lotus.NotesSession") 
DSN1 = ("Driver={Lotus NotesSQL Driver (*.nsf)};Server=NEWSERVER;Database=GMI\mlctrack.nsf;Uid=" & myUsername & ";Pwd=" & myPassword & ";")
Call nSess.Initialize(myPassword)
Set db = nSess.GetDatabase("NEWSERVER", "GMI\mlctrack.nsf")
Set iviews = db.GetView("QA\QA Schedule")
strSearchKeyIssue = "FIELD AQAExecDate >= " & StartDate & " AND FIELD AQAExecDate <= " & EndDate
searchCount = iviews.FTSearch(strSearchKeyIssue, 0)

Set viewEntry = iviews.GetFirstDocument