Butonun tıklandığında olayına aşağıdaki kodu ekle.

Dim GKayitDb As String

 

 GKayitDb = CurrentProject.Path & "\kayit.accdb"

 Dim GYeniDb As New Access.Application

 With GYeniDb

    .Visible = True

    .UserControl = True

    .OpenCurrentDatabase GKayitDb

    .DoCmd.OpenForm "frmKayit", acNormal

 End With