Jeg vil indlæse hele indholdet af en cd

Jeg vil indlæse hele  indholdet af en cd,  med direcctory og under direcctory på en database ind i Acces
Jeg har skrevet det lille program men den skifter ikke dirrectory.
Er der nogen som kan hjælpe mig?
Tak
*********
Dim dbs As Database
Dim strDBName As String
Dim rst As Recordset
Dim Catalag As String
Dim Catalogito As String
Private Sub Command1_Click()
File1.Path = Dir1.Path
For ind = 0 To File1.ListCount - 1
            Catalogito = File1.List(ind)
Catalag = Catalogito
Opdatering
Next ind
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
C = Dir1.ListCount
D = Dir1.Path
End Sub
Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
End Sub
Private Sub Opdatering()
strDBName = "c:\kasseapparat\catalag1\catalag1.mdb"
Set dbs = OpenDatabase(strDBName)
Set rst = dbs.OpenRecordset("Catalag", dbOpenTable)

With rst
.AddNew
!CDNr = Text1
!titel = Text2
!Data = Catalag
.Update
'.MoveNext
End With
End Sub
Private Sub Command2_Click()
Unload Me
End Sub