extaction des titres champs dans CSV

Bonjour

j ai un soucis sur l'extraction des titre de mes champs qui se trouve sur la 1er ligne de mon fichier csv, je ne vois pas l'erreur sachant que si je fais un fCsv.ReadLine les champs se liste parfaitement

Voici mon code test

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("test/")
Fnm = dir & "\test2.csv"
if FSO.FileExists(Fnm) then
set fCsv = FSO.OpenTextFile(Fnm,1,false)
If Not fCsv.AtEndOfStream Then fCsv.ReadLine

While not fCsv.atEndOfStream
tb = Split(fCsv.ReadLine, ",")
If UBound(tb) = 3 Then
    response.write "Nom : " & tb(0) & "  prénom :" & tb(1) & "  login:" & tb(2) & " mot de passe:" & tb(3)
End If
wend

End If

Merci beaucoup