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