[atefkhalf2004]

ما الخطا في

الموجود في الملف النصي هو
D:\e2\osamadanas\WindowsApplication1\bin\Debug\theclinic.mdb

 Public Lines() As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\ipfile.txt").Split(vbCrLf)




  Public Sub openconn()
        ff = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="& lines(0) & "' ;Persist Security Info=False;"
        conn = New OleDbConnection(ff)

        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("gagal koneksi")
        End Try
    End Sub