[VB6] Récup d'un nbre décimal sans point

Bonjour,

Je récupére les données venant d'un fichier csv et j'ai un problème en ce qui concerne la récupération de chiffres avec décimal séparés par un point. Exemple : 95.55
Les chiffres que je récupére ne contiennent plus les points. Exemple : 9555.

Voici le code :

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordSet.Open "SELECT * FROM " & CommonDialog1.FileTitle & "", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

Set cnx = New ADODB.Connection
        
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\DB1.mdb"
'Ouverture de la base de données
cnx.Open

Do Until objRecordSet.EOF
      TmpSqlInsertShareData = "INSERT INTO SHARE_DATA (ENTITY_ID,  RELATED_ID, PERCENTAGE) VALUES (" & objRecordSet.Fields.Item(8) & ", " & objRecordSet.Fields.Item(9) & ", " & objRecordSet.Fields.Item(10) & ");"
      cnx.Execute (TmpSqlInsertShareData)
      objRecordSet.MoveNext
Loop

cnx.Close

Cette donnée est PERCENTAGE en base de données et la valeur est contenue dans objRecordSet.Fields.Item(10).

Merci d'avance pour votre aide.