Ciao a tutti
devo importare un file di testo dentro a un DB e per farlo uso questa procedura:
codice:
Open SelezioneFile For Input As #1
IntIDX = 0
Do Until EOF(1)
    Line Input #1, strRiga
            
    Set recElenco = New ADODB.Recordset
    Do
        IntIDX = IntIDX + 1
        strSoluzione = Mid(strRiga, IntIDX, 8)
        txtCodice = strSoluzione
        
        If txtCodice = strOrigineNero Then
            
            recElenco.Open "anagrafica", cnDB, adOpenDynamic, adLockBatchOptimistic
            recElenco.AddNew
            ...
            recElenco.UpdateBatch
            recElenco.Close
        ElseIf txtCodice = "" Then
            Exit Do
        End If
                
    Loop
    
Loop
Close (1)
il problema è che il file di testo è grande (pesa 30MB) e non mi importa nel database tutti i dati.
La procedura è giusta anche perchè non da nessun errore.
Può essere che la variabile strRiga(che è una stringa) non riesca a contenere tutti i dati che passa il file di testo?

Non so cosa possa essere altrimenti