Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
 
dbName = App.Path + "\" + txtdbName.Text
rptName = txtReportName.Text
Preview = acPreview 'acNormal
Set objaccess = New Access.Application
With objaccess
    .OpenCurrentDatabase filepath:=dbName
     'Hier soll der Ausdruck mittels DocInfo-Struktur stattfinden 
 
End With
End Sub