Grazie mille per la risposta

quindi al load metto

codice:
Set Db = OpenDatabase(App.Path & "\db.mdb", False, False)
    Set Rs = Db.OpenRecordset("link") 'dichiari il recordset
    Set Data.Recordset = Rs ' Assegna il Recordset
    id = Data.Recordset.RecordCount
mentre al command1 metto

codice:
Data.Recordset.MoveNext
autore = (Data.Recordset.Fields("autore"))
descrizione = (Data.Recordset.Fields("descrizione"))
url = (Data.Recordset.Fields("url"))
in qusto modo i campi si riempiranno dei dati??