Problemas con un archivo txt para cargarlo en access por vba que tiene más de 500 caracteres

Tengo un problema al intentar cargar un archivo. Txt en una tabla de access donde el problema se presenta por la cantidad de caracteres que tiene cada renglón del plano más de 500 caracteres, lo he intentado de realizar de dos maneras y ambas presenta problemas en el DoCmd. RunSQL la verdad no se en que estoy fallado:

Private Sub Importar_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM datos"

DoCmd.TransferText acImportDelim, , "datos", selectfile,  True

DoCmd.SetWarnings True

MsgBox "El plano ha sido cargado"

End Sub

y la otra es:

Private Sub Importar_Click()
Dim i As Integer
Dim fila As Long

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM datos"

'DoCmd.TransferText acImportDelim, , "datos", selectfile, False

Dim strline As String
Dim strcampo As String * 510

Me.lplano.RowSource = ""

Open selectfile For Input As #1

While Not EOF(1)
Line Input #1, strlinea
strcampo = Mid(strlinea, 1, 501)

Me.lplano.AddItem (strcampo)
Wend
Close #1

For i = 0 To lplano.ListCount - 1
DoCmd.RunSQL "insert into datos (campo) values('" & lplano.Column(0, fila) & "')"
fila = fila + 1
Next

DoCmd.SetWarnings True

MsgBox "El plano ha sido cargado"

End Sub

Me di cuenta que son los caracteres porque en el mid para darle el rango si lo dejo en 255 carga el plano pero al ampliarlo ya se revienta.