Dim sFile As String

sFile = Dir("C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv", vbReadOnly)

Do Until (Len(sFile) = 0)
DoCmd.TransferText acImportDelim, , "今月分インポートデータ", _
"C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv"
Loop
MsgBox "インポートしました！"

これでどうかな？