VBA i access 2003 hurtigt svar ønskes

jeg har et script der skal kunne læse antallet af biblioteker fro filkopiering. Problemet er bare at der ikke tage alle underfoldere med i scriptgennemløbet.
Hvad er det der mangler i scriptet.

(NB har fået hjælp fra eksperten til denne del af scriptet)

Function kopierbilleder()
Dim db As Database
Dim rs As DAO.Recordset
Dim n As Long
Dim StartFolder As String
Dim Folder As String
Dim FolderNavn(1 To 1000) As String
Dim I As Integer
Dim FolderAntal As Integer



StartFolder = "d:\folder1\"
Folder = Dir(StartFolder, vbDirectory)
I = 0
Do While Folder <> ""
      If Folder <> "." And Folder <> ".." Then  ' Ignorer det overordnede bibliotek.
        If (GetAttr(StartFolder & Folder) And vbDirectory) = vbDirectory Then
            I = I + 1
            FolderNavn(I) = Folder
        End If
    End If
    Folder = Dir    ' Hent næste folder
Loop

FolderAntal = I