tilgang til fil med samme navn

ok :)   
Jeg har en variabel

filnavn = jpg0010


men i min mappe har jeg flere filer som har den navn filopstilling hvor forskellen er de 2 sidste cifre:

jpg001001
jpg001002
jpg001003
jpg001004

og jeg vil gerne have at min loop starter med at importere dene ene også den anden osv.....
Open filnavn For Input As #1
Line Input #1, line
Do While Not EOF(1)
Line Input #1, line
    fields = Split(line, ",")




<-kode-> det her har jeg , den er ok :)



rec.Update
Loop
Close #1
rec.Close
MsgBox "Data overført"
End Sub


er der nogen der kan hjælpe med at maniplure med det her variabel filnavn ?