Dim db As Database
Dim wrkDefault As Workspace
Dim dbsNew As Database
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase("a:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.Close
Dim db As Database
Dim wrkDefault As Workspace
Dim dbsNew As Database
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase("a:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.Close
منی که نام شراب از کتاب می شستم
زمانه کاتب دکان می فروشم کرد.
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول