strDatenquelle = ThisWorkbook.Path & "\Datenquelle.xlsx"
strWordvorlage = ThisWorkbook.Path & "\Serienbrief.docx"
PDFpath = ThisWorkbook.Path & "\"
Set objWinword = New Word.Application
With objWinword
.Visible = False
Set WinDoc = .Documents.Open(strWordvorlage)
With WinDoc.MailMerge
.OpenDataSource _
Name:=strDatenquelle, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;" & _
"Data Source=" & strDatenquelle & ";" & _
"Mode=Read;" & _
"Extended Properties="""";" & _
"Jet OLEDB:System database="""";" & _
"Jet OLEDB:Registry Path="""";" & _
"Jet OLEDB:Engine Type=5;" & _
"Jet OLEDB:Database", _
SQLStatement:="SELECT * FROM `B1RDSL$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess