Database - Come Agganciare Un Data1 Ad Un Recordset

Tabelle # Per creare, ad esempio, un oggetto Recordset nel codice e passarlo a un controllo Data esistente, utilizzare il seguente codice:
Dim Db As Database, Rs As Recordset ' Definite come variabili pubbliche.
Sub ApplyRecordset()
Set Db = Workspaces(0).OpenDatabase("BIBLIO.MDB")
Set Rs = Db.OpenRecordset("AUTHORS") ' Attiva automaticamente l'oggetto Table.
Set Data1.Recordset = Rs ' Assegna il Recordset.
Data1.Recordset.Index = "PrimaryKey"
Debug.print Rs.Type ' Visualizza il tipo di oggetto creato.
End Sub