Arkadaşlar hocalarım site üzerinde de çok araştırdım bulamadım 
Form üzerinde bir buton ile dosyanın bulunduğu klasör içerisine arşiv diyen klasör oluşturacak ve arşiv adlı veya kullanıcının belirleyeceği boş bir Access veritabanı oluştursun
Bu şekilde bir örnek varmı nasıl yapabilirim 
Bu açılan örnekler içerisinde herhangi bir tablo sorgu form vs olmasına gerek yok sadece veritabanını yaratsın yeter 

Yardımlarınızı  bekliyorum

Merhaba,
Uygulama ile aynı dizine arşiv isimli klasör oluşturmak için gerekli kod,

GDizin = CurrentProject.Path & "\" & "arşiv\"

GKlasor = Len(Dir(GDizin, vbDirectory))



If GKlasor = 0 Then

MkDir GDizin

End If

Oluşturulan arşiv klasörüne yeni veritabanı eklemek için

Dim dbNew As DAO.Database

Set dbNew = CreateDatabase(CurrentProject.Path & "\" & "arşiv\" & "Veritabani.accdb", dbLangGeneral)

kodunu kullanman gerekli.

Dim accessEkle As Access.Application

   Set accessEkle = New Access.Application

accessEkle.DBEngine.CreateDatabase "C:\OzGuR_YaSiN.accdb", DB_LANG_GENERAL

   accessEkle.Quit

   Set accessEkle = Nothing

Teşekkürler Sayın hocalarım inşallah yarın dener sonucu yazarım

Hocalarım elinize sağlık çok şahane oldu bir isteğim daha olacak oluşturulan dosyanın klasörde  olup olmadığını nasıl kontrollü ettirebilirim

Hocalarım emeğinize sağlık sorun çözülmüştür taşıyabilirsiniz
Teşekkürler