Visual Basic - Como Importar datos de archivo texto ???

Amigos:
Necesito importar datos de archivos texto y llevalos a una tabla de access utilizando ado.
Si tienes algun ejemplo agradeceria si me facilitas uno.

gracias

Joel
Lo primero que tenés que hacer es poder leer el archivo. la siguiente es una forma de leerlo

Function LeerArchivo(Archivo as string)
On Error Resume Next
Dim Linea As String
Dim Arch As Integer

Arch = FreeFile

Open Archivo For Input As #Arch
Do While Not EOF(Arch)
Input #Arch, Linea
Debug.Print Linea
Loop
Close #Arch
End Function

Si en vez de poner Debug.print Linea ponés Una variable = Línea
ahí tenés el valor para guardar, luego solo es cuestión de verificar que la información sea válida e ingresarla al ADO.

Es muy sencillo

Afogutu

Dim Base as DataBase
Dim Reg as Recordset
Private Sub AbrirBase()
Set Base = OpenDataBase("C:Ruta",False,False)
Set Reg = Base.OpenRecordset("NombreTabla",DbOpenDynaset)
End Sub
Private sub Exportar_Click()
AbrirBase
Open "C:\Archivo.txt" For Input As #1
Do While Not EOF(1)
Input #1,Campo1,Campo2
Reg.AddNew
Reg!NombreCampo = Campo1 'NombreCampo esde latabla de Access
Reg!NombreCampo = Campo2
Reg.Update
Loop
Close #1
Reg.Close
Set Reg = Nothing
Base.Close
End Sub