Microsoft DAO 2.5/3.51 Compatibility Library Nicht Vorhanden!

Hendrix

Hallo,

wie schon im Thema beschrieben fehlt mir der oben genannte Verweis, daher läuft das Programm nicht. Nur leider weiß ich nicht, wie oder wo ich den Verweis herbekomme.
Ich hoffe ihr könnt mir helfen!

Sub ConnectWord(strSource As String, Seriendruck As String)

'Deklaration'
Dim wrdApp As Object
Dim wrdDoc As Object
Dim dbs As DAO.Database  //Fehler beim Kompilieren Projekt oder Bibliothek nicht 
                           gefunden

'Datenbank Object öffnen'
Set dbs = CurrentDb

'Word öffnen'
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

'Neues Dokument erstellen'
Set wrdDoc = wrdApp.Documents.Add(Seriendruck)

'("E:\Verzeichnis\Datei.doc")'

'Word Dokument mit Daten verbinden'

wrdDoc.MailMerge.OpenDataSource Name:="E:\Verzeichnis\Datenbank.mdb", LinkToSource:=True, _
SQLStatement:="SELECT " & strSource & ".* FROM " & strSource & ";"

End Sub

Hendrix

Das Problem hat sich erledigt!