[Taha Okla]

عدل كود الاتصال فقط :

PHP كود :

Public Sub ConnectionDatabase()
 On Error GoTo 1
 If db.State = adStateOpen Then _
    db.Close
    
    db.CursorLocation = adUseClient
    db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path & "\Data.Base\" & Trim$(Form_Connect.ComboData.Text)
Exit Sub
1
MsgBox "لم يعثر البرنامج على قاعدة البيانات", vbCritical + vbMsgBoxRtlReading, "Data_Base"

End Sub