[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




تفضل

PHP كود :

Private Sub Combo1_Change()
    If Con.State = adStateOpen Then Con.Close
    Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Me.Combo1.Text & ".accdb; Jet OLEDBatabase Password = Ahmed "
End Sub 


[COLOR="#FF0000"]تم التعديل


[/COLOR]
السلام عليكم ورحمة الله وبركاته