Aprire un Recordset dentro Access

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)