Reading multiple files at a time

[abhi1214]

Set fd = Application.FileDialog(3)
fd.Title = "Select A File"
fd.AllowMultiSelect = True
fd.Filters.Clear
fd.Filters.Add "CSV File", "*.CSV"


If fd.Show = True Then
For Each varFile In fd.SelectedItems
sFile = varFile
db.TableDefs.Refresh
DoCmd.TransferText , TableName:="temp", _
FileName:=sFile, HasFieldNames:=True

.
.


Next
End If




How can I read multiple files one after the other , like in a loop . here I tried but then it only reads the first file . where am I going wrong.