Can't figure it out. Here is the code:
Private Sub Button_OpenQuest_Click()
On Error GoTo Err_Button_OpenQuest_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stDocName As String
Dim stLinkCriteria As String
stDocName =...