[مصمم هاوي]

كود :

Public Sub ConnectionDatabase()
On Error GoTo 1
If DB.State = adStateOpen Then _
    DB.Close
    
    DB.CursorLocation = adUseClient
    DB.Provider = "microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=123456789"
    DB.Open App.Path & "\Data.Base\db1.accdb"

Exit Sub
1
  MsgBox "áã íÚËÑ ÇáÈÑäÇãÌ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbCritical + vbMsgBoxRtlReading, "Data_Base"

End Sub

حيث: (Data.Base) - اسم مجلد قاعدة البيانات
(db1.accdb) - اسم قاعدة البيانات