VB Code:
With oDoc.MailMerge .MainDocumentType = wdMailingLabels .OpenDataSource Name:=App.Path & "\MyData.mdb", LinkToSource:=True, Connection:="TABLE MyTemp", _ SQLStatement:="Select [First Name], [Last Name], [Mailing Address], City, State, Zip From [MyTemp]" End With With oDoc.MailMerge.DataSource .FirstRecord = 1 .LastRecord = .RecordCount RecCount = .RecordCount End With




Reply With Quote