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
Butonun tıklandığında olayına aşağıdaki kodu ekle.