Txt a mdb en vb6

¿Cómo estas?
¿Esa estructura tiene tu txt?
¿Sabes hacer todas las conexiones con access, con archivos, etc?
Un beso!

Hola Experto:
exechapur me vas a sonrojar si mira esta es la estructura de mi txt
1," 565", 2009,16,12,00564000000000000000," 2500199.76", 1,,,,,
2,BAMA5912231B4,"BARCENAS,MENDOZA/MARIA ANITA                           ",22014,2214090101,040,I222,416,1103," M02038",00004,0004,75," 6",8," 0",3,"       0",2009081620090831,1,000030142,9,0060563863370102,"  5481.2","  2809.4","  2671.8",26,"107  3144.500000000","1A2    27.500000000","142    132600000000","155   644.5000000AG","146      6500000000","138      7500000000","144      7500000000","201  586.8500000000","202  144.33000000SR","258   62.8900000000","270       500000000","277    5.9100000000","251  167.2500000000","265     8.500000000","264   951.600000030","246       1000000DE","250   62.8900000002","246   16.66000000SF","204   87.23000000SS","204   19.83000000SP","202   19.83000000SI","202   15.86000000SS","303  396.7200360004","221  134.19000000FA","229   93.3120091621","277  -123.720091600","277   29.5520091600",0000000000000000000,0000000000000000000,0000000000000000000,1,2200000082,,2,1,02,,,,,,,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000,0000000000000000000
es algo estensa no se como hacer las conecciones creo que soy un poco novata en esto  podrias ayudarme un saludo y un beso

Oye ya pude hacer la conexión pero al momento de que trato de ingresar los datos me dice que no se puede por que el obejor esta abierto esto es cuando trato de inglesar un nujmero al código si se lo queto si los almacena dime si me podrías ayudar
si es necerario te mando mi código para que lo puedas observar
Private Sub CmbPasar_Click()
'On Error GoTo archivo
Dim Lineas As Variant, i As Integer, j As Integer, k As Integer
Dim Columnas() As String
Dim Camino As String
    Camino = App.Path & "\Ejemplo.txt"
    Lineas = Split(FileToString(Camino), vbCrLf)
    For i = Val(LBound(Lineas)) To UBound(Lineas)
        Columnas = Split(Lineas(i), ",")
            rec.Open "Select * from Socios", bd, adOpenKeyset, adLockOptimistic, -1
            With rec
                If UBound(Columnas) = 4 Then
                    .AddNew
                    !Clugar = Columnas(0)
                    !Apellido = Columnas(1)
                    !Direccion = Columnas(2)
                    .Update
                    .Close
                End If
            End With
    Next i
    MsgBox "Los Datos se importaron con exito!!!!", vbInformation, "De .txt a .mdb"
    Exit Sub
archivo:
    MsgBox "Se produjo un error", vbExclamation, "Error."
    End
End Sub
Private Sub CmbSalir_Click()
    End
End Sub

Bueno je je,
mira es bastante extenso, por lo que se ve tienes que aprender
primero a trabajar con archivos, luego con bases de datos,
y ahí ya podríamos probar de unir todo, ¿te parece?
Un beso!

Pues ya pude trabajar con algunos otros archivos y las conexiones pero no me permite ingresar datos de gran cantidad y más cuando trato de poner un numero clave pro que me dice que el objeto esta abierto de hecho es paras pasado mañana este trabajo y no lo he podido terminar por que solo me falta eso ya hasta me esta volviendo loca

Jajajaja lo que tienes que hacer es dentro de un mismo
objeto recorrer todo tu txt con un ciclo while y así
ir agregando registros a la bbdd de lo leído en el txt...
¿Se entendió?

jijij no pues no al parecer no te entendí si le nigrese in while pero aun así me sigue apareciendo el mismo error o soy un poco tonta para entenderte jajaja

Jajajaja tal vez estas poniendo el while al principio,
debes ponerlo una vez que abriste la base de datos y el archivo,
vas recorriendo el archivo y cargándolo a la base de datos, ¿se entiende?

No la verdad no te entiendo ya hasta me hice bolas toda

Jajajaja no te entiendo che...

A no que no te entendí lo que me explicaste es l oque trato de decirte podrías decime como hacerlo plis

Creo que me estoy desesperando de que no puedo con esto