مسار قاعدة البيانات في التكست بوكس

PHP كود :
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = GetSetting(Application.ProductName, "path", "database", "")
    End Sub

    Private Sub frombtn_Click(sender As System.Object, e As System.EventArgs) Handles frombtn.Click
        Using o As New OpenFileDialog
            o.Filter = "AccessFiles (*.mdb)|*.mdb"
            If o.ShowDialog = MsgBoxResult.Ok Then
                TextBox1.Text = o.FileName
            End If
        End Using
    End Sub

    Private Sub savebtn_Click(sender As System.Object, e As System.EventArgs) Handles savebtn.Click
        SaveSetting(Application.ProductName, "path", "database", TextBox1.Text)
    End Sub

End Class