Dim delimiter As String<br>
Dim sql_statement As String<br>
<br>
If delimiter = "<space>" Then delimiter = " "<br>
If delimiter = "<tab>" Then delimiter = vbTab<br>
<br>
Do While Not EOF(fnum)<br>
' Read a text line.<br>
Line Input # fnum, text_line<br>
<br>
Do While Len(text_line) > 0<br>
pos = InStr(text_line, delimiter)<br>
If pos = 0 Then<br>
' Add the rest of the line.<br>
sql_statement = sql_statement & _<br>
"'" & text_line & "', "<br>
text_line = ""<br>
Else<br>
<br>
sql_statement = sql_statement & _<br>
"'" & Left$(text_line, pos - 1) & _<br>
"', "<br>
text_line = Mid$(text_line, pos + Len(delimiter))<br>
End If<br>
End If<br>
Loop<br>
<br>
' Remove the last comma.<br>
sql_statement = Left$(sql_statement, Len(sql_statement) - 2) &<br>
"

"<br>
<br>
List1.AddItem sql_statement<br>
<br>
Loop<br>
<br>
Close fnum<br>
<br>
it's a sample !<br>
<br>
Eric De Decker