Private Sub Command1_Click()
Dim objAccess As Access.Application
On Error Resume Next
Set objAccess = New Access.Application
objAccess.OpenCurrentDatabase "d:\CoachM.mdb"
objAccess.Visible = True
objAccess.DoCmd.OpenForm "CoachM"
(1).SetFocus
End Sub