Dim rsFileInfo As Recordset

Sub cmdLoadFiles_Click()
  
    Dim sFileDir As String
    Dim Idx As Integer
  
    Set rsFileInfo = New Recordset
  
    ' add new fields to the recordset
    rsFileInfo.Fields.Append "ID", adInteger
    rsFileInfo.Fields.Append "FileName", adBSTR, 255
  
    ' open the recordset
    rsFileInfo.Open
  
    ' use the Dir command to return the files in the C:\ directory
    sFileDir = Dir("C:\")
  
    ' if there is a valid file name
    Do While sFileDir <> ""
        If sFileDir <> "." and sFileDir <> ".." Then
            Idx = Idx + 1
  
            ' add a new record for this file
            rsFileInfo.AddNew
              rsFileInfo!ID = Idx
              rsFileInfo!FileName = sFileDir
            rsFileInfo.Update
  
            ' get the next file in the directory
            sFileDir = Dir
        End If
    Loop
    rsFileInfo.MoveFirst
  
End Sub

Sub cmdDisplayResults_Click()
    Do Until rsFileInfo.EOF
        MsgBox "File Number: " & rsFileInfo!ID & vbCrLf & "File Name: " & rsFileInfo!FileName
        rsFileInfo.MoveNext
    Loop
End Sub