[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي لديك سنكل كوتيشن زائد لاحظ

كود :

"& lines(0) & "'

يمكنك تستخدام هذا الكود بحيث تقرأ الملف وتضعه في List واجلب المكتبة Imports System.IO

كود :

   Public AllData As New List(Of String)(File.ReadAllLines(Application.StartupPath & "\ipfile.txt"))

وفي الصب

كود :

       Dim ff As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & AllData(0) & " ;Persist Security Info=False;"