Sub MailmergeLetter() Dim myLetter As Document Documents.Open FileName:="C:\Letter.doc" Set myLetter = Documents("Letter.doc") myLetter.MailMerge.OpenDataSource Name:="C:\store.mdb", Connection:="TABLE Employees" End Sub