Visual Basic - Importar txt

Hola a todos,

Anteriorme he hecho importaciones desde otras aplicaciones tipo Excel pero nunca he realizado una importación desde txt a una base de datos.

Supongo que habrá alguna manera de leer los datos y diferenciar uno de otro por comas.

Alquien puede ayudarme.

Gracias.

Este es un codigo que lo saque de esta pagina, es una respuesta publicada por Cecilia Colalongo, me funciono bien para poder separar una linea de un archivo txt y poder asignarles los valores a ciertos campos en un bd de access.

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function

Private Sub Command1_Click()
Dim Lineas As Variant, i As Integer
Lineas = Split(FileToString(Archivo), vbCrLf)
For i = Val(LBound(Lineas) + 1) To UBound(Lineas)
Text1.Text = Text1.Text + Lineas(i) + vbCrLf
columnas = Split(Lineas(i), ",")
For j = LBound(columnas) To UBound(columnas)
Debug.Print columnas(j)
Next j

Next i

End Sub

Probalo, cualquier cosa te paso el ejemplo funcionando.

Espero te sirva.

Mauro

Si puedes pasarmelo a la dirección de correo te lo agradeceria.

Gracias por anticipado.

Hola...como hago para importar un archivo txt...a una tabla de sql
mediante visual basic 6...????