Si crea un Recordset dentro Access, prelevando i dati da una sua tabella,
si trasferiscono ad un Report di esso: Private Sub SezioneIntestazionePagina_Format(Cancel As Integer, FormatCount As Integer) Dim Rs As ADODB.Recordset DoCmd.OpenTable "intestazione" Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open "Select * From intestazione", CurrentProject.Connection, adOpenKeyset, adLockOptimistic Etichetta50.Caption = Rs!Intestazione1 Etichetta51.Caption = Rs!Intestazione2 Etichetta52.Caption = Rs!Indirizzo Etichetta53.Caption = "Codice Fiscale " & Rs!CodiceFiscale Etichetta56.Caption = "P.IVA " & Rs!partitaiva Rs.Close DoCmd.Close End Sub vedi esempio In Access di Archivio.Mdb SU LAVANDERIA Dim dbsNorthwind As DAO.Database Dim rstProducts As DAO.Recordset Set dbsNorthwind = CurrentDb Set rstProducts = dbsNorthwind.OpenRecordset("Current Product List") Dim dbsNorthwind As DAO.Database Dim rstProducts As DAO.Recordset Dim strSQL As String Set dbsNorthwind = CurrentDb strSQL = "SELECT * FROM Products WHERE Discontinued = No " & _ "ORDER BY ProductName" Set rstProducts = dbsNorthwind.OpenRecordset(strSQL) |