莲花笔记数据库路径

我已经创建了一个宏，它将从莲花笔记中提取数据，它工作正常。现在发生的事情是，莲花笔记的服务器名称已被更改，并且我的宏无法支持新服务器。不确定吗？它给了我一个在searchCount上的错误。请看一看？我给你的新旧代码请建议，如果我失去了一些东西。莲花笔记数据库路径

OLD CODE：

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

NEW CODE：

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)

在上面的行获取错误信息：运行时错误80040fa0