Mica tanto Jupy, io raccolgo il campo nome del BD in un ListBox che cliccanoci sopra popola delle textBox ed il campo memo la RichTextBox
in questo modo modo.
codice:
Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
        Set myrecord = mydata.OpenRecordset("clienti")
        myrecord.MoveFirst
        Do Until myrecord.EOF
            If lstclient.Text = myrecord!nome Then
                textindirizzo.Text = myrecord!indirizzo
                txtcont.Text = myrecord!cont
                txtdata.Text = myrecord!Data
                txtpag.Text = myrecord!pagina
                txtnumpezzi.Text = myrecord!numpezzi
                RichTextBox1.Text = myrecord!note
              End If
            myrecord.MoveNext
Comunque se mi posti il codice che mi ha descritto sopra te ne sarei grato quello x salvare in rtf e raccoglere in un ListBox, grazie comunque.