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