اين الخطاء بهذا الكود

[ابو ياسين المشولي]

 Dim wrkDefault As Workspace
   Dim dbsNew As Database
   Dim strPaht As String
   Dim dbNAME As String
   strPath = Application.CurrentProject.Path & "\"
   dbNAME = strPath & Forms!Form!strDBName.Value & ".mdb"
   Set wrkDefault = DBEngine.Workspaces(0)
   Set dbsNew = wrkDefault.CreateDatabase(dbNAME, dbLangGeneral, dbEncrypt)
   dbsNew.Close

[ابو ياسين المشولي]

تم وجود الحل

وهو

Public Function CreateDatabase()

   Dim wrkDefault As Workspace
   Dim dbsNew As Database
   Dim strPaht As String
   Dim dbNAME As String
   strPath = Application.CurrentProject.Path & "\"
   dbNAME = strPath & Forms!Form!strDBName.Value & ".mdb"
   Set wrkDefault = DBEngine.Workspaces(0)
   Set dbsNew = wrkDefault.CreateDatabase(dbNAME, dbLangGeneral)
   dbsNew.Close
End Function