ตัวอย่างนะครับ
สร้างปุ่มขึ้นมา ใส่ใน Event > On Click

    Dim db As Database
    Dim i As Integer
    Dim temp_name As String
    temp_name = ""
    Set db = DAO.OpenDatabase("C:\Folder\File.mdb")
    'หากไฟล์มีรหัสผ่าน เช่น 1234 ใช้ตามด้านล่าง
    'Set db = DAO.OpenDatabase("C:\Folder\File.mdb", False, False, ";pwd=1234")
    For i = 0 To db.Containers("Reports").Documents.Count - 1
        If db.Containers("Reports").Documents(i).name Like "Z*" Then
            temp_name = temp_name & ", " & db.Containers("Reports").Documents(i).name
        End If
    Next i
        If temp_name = "" Then
            MsgBox "ไม่พบชื่อ Reports"
        Else
            MsgBox Right(temp_name, Len(temp_name) - 2)
        End If
    db.Close: Set db = Nothing

ประมาณนี้ครับ ปรับใช้ดู หากสนใจความหมายและอยากต่อยอดอื่นๆต่อไป ลองศึกษาเรืองของ DAO หรือ ADO จะเป็นประโยชน์มากๆครับ