' Access-Objekt erstsllen
        Set oAccess = CreateObject("Access.Application")
        With oAccess
            ' Datenbank öffen
            .NewCurrentDatabase pfad & ".mdb"
            .Visible = True
        End With
'        Set oAccess = Nothing