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

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

كود :

Imports System.IO
Public Class Form1
   Public Sub Opendirectory(ByVal txt As TextBox)
       Dim ofd As New OpenFileDialog()

       '.ShowHelp = True
       ofd.Title = "Choose Database"
       ofd.Filter = "Access 2007-2016|*.accdb|Access 1997-2003|*.mdb|All file|*.*"
       ofd.ShowDialog()
       If ofd.FileName.Length And (ofd.FileName.EndsWith("mdb") Or ofd.FileName.EndsWith("accdb")) Then
           'txt.Text = Path.GetFileName(ofd.FileName) ' هذا يعرش اسم القاعدة مع اللاحقة
           txt.Text = Path.GetFileNameWithoutExtension(ofd.FileName) ' هذا يعرش اسم القاعدة فقط
       End If

   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Opendirectory(TextBox1)
   End Sub
End Class