Provo a risponderti ma la tua domanda non molto chiara

-->code:
option explicit
Dim mydata As Database
Dim myrecord As Recordset
Dim SQL As String
Private Sub command1_Click()
Set mydata = OpenDatabase(App.Path + "\" + "DBacc1nomi.mdb")
SQL = "SELECT * FROM nometabella"
Set myrecord = mydata.OpenRecordset(SQL)
code:<--
''''aggiungo anche questo nel caso volessi recuperare i dati in una lisbox e stamparli in una textbox
-->code:
Private Sub listbox_Click()
On Error Resume Next
Set mydata = OpenDatabase(App.Path + "\" + "database.mdb")
Set myrecord = mydata.OpenRecordset("tabella")
myrecord.MoveFirst
Do Until myrecord.EOF
If lstvetri.Text = myrecord!nome Then
txtnome.Text = myrecord!nome
txtfor.Text = myrecord!fornitore
txtdesc.Text = myrecord!descrizione
txtID.Text = myrecord!identif
txtprezzo.Text = myrecord!prezzo
txtdata.Text = myrecord!Data
End If
myrecord.MoveNext
Loop
End Sub
-->code: