Sub DisplayExternalForm()
Dim appAccess As Access.Application
strDB = "C:\Tek-Tips.mdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
With appAccess
' Open form with OpenArgs
.DoCmd.OpenForm "Form1", , , , , , "Hello"
' Or just use a control
.Forms!Form1.Text1 = 123
End With
End Sub