03-09-24, 01:40 AM
وعليكم السلام ورحمه الله وبركاته
جرب هذا الكود
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\" & TextBox1.Text & ".accdb ;jet oledb:database password=123456 ")
جرب هذا الكود
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\" & TextBox1.Text & ".accdb ;jet oledb:database password=123456 ")