1 adet Listbox, 1 adet Button ekleyin.
Imports System.IO eklediğiniz kod sayfasına

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

        ListBox1.Items.Clear()

        Dim directoryInfo As New System.IO.DirectoryInfo("D:\Access")

        Dim bul() As System.IO.FileInfo



        bul= directoryInfo.GetFiles("*.mdb", SearchOption.AllDirectories)

        For Each fileInfo As System.IO.FileInfo In bul

            ListBox1.Items.Add(fileInfo.Name)

        Next

End Sub

yazarak deneyin. Buradaki D:\Access aramanın yapılacağı dizin, *mdb Access dosyaları, SearchOption.AllDirectories ise aramanın alt klasörlerde de yapılması anlamına gelmektedir. Siz D:\Access ile *mdb yerine TextBox lar ile form üzerinden hükmetmeyide deneyebilirsiniz. Kolay gelsin.