Dim strDB As String
strDB = "C:\Users\ferry\Desktop\5555\FolderN\1010\bar.accdb"
عدل للمسار الصحيح
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
If appAccess.CurrentDb() Is Nothing Then
MsgBox "فشل في فتح قاعدة البيانات!"
Else
appAccess.DoCmd.OpenForm "LoadingBar"
appAccess.Visible = True
End If
5556.rar