I looked up opendatabase in vba help, drew a blank, but opencurrentdatabase came up with
' Include the following in Declarations section of module.
Dim appAccess As Access.Application
Sub DisplayForm()
' Initialize string to database path.
Const strConPathToSamples = "C:\Program " _
& "Files\Microsoft Office\Office\Samples\"
strDB = strConPathToSamples & "Northwind.mdb"
' Create new instance of Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strConPathToSamples
' Open Orders form.
appAccess.DoCmd.OpenForm "Orders"
End Sub
Im am sure you could change the Db path to siut your App.
Dave
.