.accdb Veri Tabanını Kod İle Açmak

Merhaba arkadaşlar
ben sizlerden bir konu hakkaında bilgi almak istiyorum. benim iki tane veri tabanım var. bir tanesi ayt.accdb ve içinde frmAna diye form ekranım var. diğer veri tabanım ise kayit.accdb  bunun içinde de frmKayit formu var.
benim istediğim
ilk veri tabanındaki frmAna içindeki butona tıkladığımda kayit.accdb acilsın bunu nasıl sağlayabilirim. yani bu şekilde birşey aklıma geldi olurmu bilmiyorum tşk.

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

çok sağolun tşk. çalıştı.