Ayuda con insertar Archivo TXT

Aplique el siguiente codigo para insertar un archivo TXT
en una tabla de Access 2000 y todo me resulta muy bien,
pero de los 400 registros que inserte solo 12 registros se
insertan hasta la mitad, es decir si el registro tiene 100
caracteres se estan insertando 30 o cuarenta caracteres,
este problema no lo he podido solucionar y ya revise el
archivo TXT y todo esta OK.

Adjunto el codigo que he usado, Gracias.

Dim cnn As ADODB.Connection
Dim sConnect As String, sSQL As String

'INSERTA ARCH. TXT CLIENTES EN TABLA ACCESS Cliente_ccc100
sConnect = "[TEXT; HDR=yes; DATABASE=I:\Sistema\Txt].
[Clientes#txt]"
'Construimos la consulta SQL
sSQL = "INSERT INTO Cliente_Ccc100 SELECT * FROM " &
sConnect
' Conexión con tu base de datos Accesss
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data
Source=I:\Sistema\Txt\Alpha.mdb"
.Open
'Añadimos los registros
.Execute sSQL, , adCmdText
'Cerramos la conexión
.Close
End With