Leggere dati da una tabella di Microsoft Access

'CODICE DA USARE IN UN DATABASE MICROSOFT ACCESS, in linguaggio VBA
'Crea oggetto "archivio" che conterrà il database corrente
Dim archivio As Database
'Crea oggetto "dato" che leggerà i dati di una tabella
Dim dato As Recordset
'Crea una stringa "frase"
Dim frase As String
'Crea una stringa "x"
Dim x As String

'Imposta "archivio" in modo che contenga il database corrente
Set archivio = CurrentDb
'Nella variabile "frase" viene inserita l'istruzione SQL per filtrare i dati che ci interessano di una determinata tabella
frase = "select * from video"
'Qui "dato" eseguirà l'istruzione SQL contenuta nella variabile "frase"
Set dato = archivio.OpenRecordset(frase)
'QUi inizia un ciclo che processerà tutti i record risultato dall'istruzione SQL
Do While Not dato.EOF
'Nella variabile "x" viene concatenato il campo "supporto" della tabella "video" processata con il codice SQL sopra indicato
x = x & dato!supporto
'L'istruzione dat.MoveNext passa al record successivo, altrimenti il loop si blocca
dato.MoveNext
Loop
dato.Close
Set dato = Nothing
Set archivio = Nothing
'Scrive nella casella di testo "Testo2" il contenuto della variabile "x"
testo2=x
'Porta il focus sulla casella di testo "Testo2"
Testo2.SetFocus
'Copia in memoria il contenuto della casella di testo "Testo2", in modo da poter essere poi incollata in qualsiasi altro software
DoCmd.RunCommand acCmdCopy