Search results

The following code will help totally: Private Sub Command0_Click() Dim appAccess As Access.Application Set appAccess = New Access.Application appAccess.OpenCurrentDatabase ("D:\Data\My New App.accdb") appAccess.Visible = True appAccess.UserControl = True SendKeys "%{Tab}", True End Sub