...objWord.MailMerge.OpenDataSource
CurrentProject.Path, , , , True, , , , , , , "QUERY
qryStudentMinor", "Select * from [qryStudentMinor]
WHERE [id]='" & Me!txtID & "'"
objWord.MailMerge.Destination = wdSendToNewDocument...