probleme de requete insert via fichier Txt /table

bonjour ,

J'ai un petit souci lors de l'insertion d'un fichier texte en table celui-ci etant delimité par des "@"
il me m'est cette erreur la : Erreur de syntaxe (opérateur absent) dans l'expression  , au vue de la requete SQL elle paraît clean toute les valeurs sont bien espacées d'une "," le nombre de champs source et destination sont identiques .... , j'ai bien différencié mes champs par des ' mais bon rien n'y fait :/
si quelqu'un avait une idée je suis preneur :o 
voici mon code :

Private

Sub cmdImport_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdImport.Click

Dim delimiter AsString

Dim contents AsString

Dim lines() AsString

Dim fields() AsString

Dim wks As dao.Workspace

Dim db As dao.Database

Dim fnum AsShort

Dim line_num AsShort

Dim field_num AsShort

Dim sql_statement AsString

Dim num_records AsInteger

delimiter =

"@"

' capture le fichier

fnum = FreeFile

FileOpen(fnum,

"C:\damien.txt", OpenMode.Input)

'Mise en memoire du fichiers texte à importer

contents = InputString(fnum, LOF(fnum))

FileClose(fnum)

' decoupe chaque ligne a chaque saut de ligne

lines = Split(contents, vbCrLf)

' Ouvre la base.

wks = DAODBEngine_definst.Workspaces(0)

db = wks.OpenDatabase(

"C:\Base Rex.mdb")

'enumere le nombre de lignes

For line_num = LBound(lines) To UBound(lines)

'si la ligne a une longueur sup a zero execute le code

If Len(lines(line_num)) > 0 Then

' construction de la requete d'insertion

sql_statement =

"INSERT INTO T_CRI VALUES("

'decoupe les champs

fields = Split(lines(line_num), delimiter)

 

 

'enumere le nombre de champs

For field_num = LBound(fields) To UBound(fields)

' insere les champs a la requête

sql_statement = sql_statement &

"'" & fields(field_num) & "',"

Next field_num

' 'Enleve la derniere virgule de la requete SQL

sql_statement = VB.Left(sql_statement, Len(sql_statement) - 1) &

")"

db.Execute(sql_statement)

num_records = num_records + 1

EndIf

 

J'ai trouvé une partie de la solution .
En faite c'est les mots de type "D'AIR" , l'apostrophe est pris pour un début ou fin de field , il me reste qu'a trouver comment faire pour que VB ne prenne pas en compte les "'" dans un field....