Public Function OpenAccess()

Dim AccessApp As Access.Application

Dim objPath As String

objPath = CurrentProject.Path

Set AccessApp = New Access.Application

AccessApp.OpenCurrentDatabase objPath & "\admin.mdb"

AccessApp.DoCmd.OpenForm "greeting"

AccessApp.Visible = True

End Function