[Vba]Errore in una query insert su un campo memo

[Alethesnake]

ciao,
ho un problema su una query insert quando i caratteri inseriti in un campo memo superano quota 18/20.000.
quello che faccio è leggere il contenuto di un file di testo e inserirlo in un campo memo del db, ma quando i caratteri superano il numero indicato sopra ottenggo l'errore di runtime 3075: query troppo lunga...
questo è il codice che utilizzo:

...
	    Dim fso As New FileSystemObject, ts As TextStream
            Dim s As String, sql As String
	    Dim db as Database
	    Set db as CurrentDb()
            
            Set fso = CreateObject("Scripting.FileSystemObject")
            
            For i = 1 To selFiles
                
                Set ts = fso.OpenTextFile(.SelectedItems.Item(i), ForReading)
                
                s = ts.ReadAll
                
                ts.Close
                
                sql = "INSERT INTO documenti (lid, dtitle, dtext, ddata) VALUES (" & _
                        Me.lang.Column(0) & ", '" & _
                        Replace(nof(.SelectedItems.Item(i)), "'", "''") & "', '" & _
                        Replace(s, "'", "''") & "', '" & _
                        Now() & "')"
                        
                db.Execute (sql)
                
            Next i

qualcuno sa indicarmi una soluzione al problema?