Salve,

Public Function esporta()

Dim rs As New ADODB.Recordset 'Recordset
Dim conn As New ADODB.Connection 'Connessione
Dim stringaconn As String 'Stringa Connessione
Dim strsqls As String


'Seleziono il db
Set conn = New ADODB.Connection
stringaconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\ProgettiVB\ProvaTesto\Provatesto.mdb"
conn.Open stringaconn

strsqls = "select * from prova" 'Seleziono tabella

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsqls, conn, adOpenStatic, adLockReadOnly 'Eseguo strsqls

End Function

Con questo codice seleziono i records di una tabella, e fin qui ok. Ora non riesco a capire come posso inserire i records in un file di testo, inserendo tra un campo e l'altro un tot di spazi.
Grazie