[ZEEN4ZEEN]

السلام عليكم جميعا
اريد التعديل على جملة الاتصال بقاعدة البيانات 
بحيت يتم الاتصال بقاعدة البيانات التى يتم كتابة اسمها فى مربع النص 
حيت يوجد اكتر من قاعدة بيانات فى المشروع 
ارجو التعديل ان امكن 

 If TextBox13.Text = "" Then Exit Sub

  Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _

            "Data Source =" & Application.StartupPath & "\Data\ " & TextBox1.Text & " .mdb.ACCDB  ;jet oledb:database password=123456 ")

[alachk]

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

[ZEEN4ZEEN]

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

بارك الله فيك