كيفية ربط ملف نصي نوع txt موجود به مسار قاعدة البيانات ؟

كود :

Module Module1



    Public DatabasePath As String = ""

    Public ImagesPath As String = ""



    Public Function CheckSettings() As Boolean

        DatabasePath = GetSetting(Application.ProductName, "AppPaths", "DatabasePath", "")

        ImagesPath = GetSetting(Application.ProductName, "AppPaths", "ImagesPath", "")





        If DatabasePath = "" Or ImagesPath = "" Then

            MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور")

            Using browse As New FolderBrowserDialog

                browse.ShowNewFolderButton = True

                browse.Description = "تحديد مسار قاعدة البيانات"

                If browse.ShowDialog = Windows.Forms.DialogResult.OK Then

                    DatabasePath = browse.SelectedPath

                    SaveSetting(Application.ProductName, "AppPaths", "DatabasePath", DatabasePath)

                End If

            End Using

            Using browse As New FolderBrowserDialog

                browse.ShowNewFolderButton = True

                browse.Description = "تحديد مسار الصور"

                If browse.ShowDialog = Windows.Forms.DialogResult.OK Then

                    ImagesPath = browse.SelectedPath

                    SaveSetting(Application.ProductName, "AppPaths", "ImagesPath", DatabasePath)

                End If

            End Using

        Else

            Return True

        End If



        If DatabasePath <> "" And ImagesPath <> "" Then

            MsgBox("تم إنشاء مسار قاعدة البيانات ومسار الصور ويمكنك متابعة عمل البرنامج")

            Return True

        Else

            Return False

        End If



    End Function



End Module

كود :

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Me.Show()

        If Not CheckSettings() Then

            MsgBox("يجب تحديد مسار قاعدة البيانات ومسار الصور قبل متابعة العمل في البرنامج")

            MsgBox("سيتم الخروج من البرنامج")

            Application.ExitThread()

        End If



    End Sub