codice:
Private Sub lstDb_Click()
'Visualizzazione dei record corrispondenti alla selezione
Set DB = OpenDatabase(App.Path & "\dbad97.mdb")
  sSql = "Select * FROM tabprinc WHERE Nome= '" & Trim$(lstDb) & "'"  
  Set Rs = DB.OpenRecordset(sSql)
   Do While Not Rs.EOF    
  'Aggiungo il valore del campo corrispondente
  if Rs!Nome <> "" then 
    txtnome.Text = Rs!Nome
  end if
  if Rs!Cognome <> "" then
    txtcognome.Text = Rs!Cognome
  end if
  if Rs!datanascita <> "" then
    txtdatanascita.Text = Rs!datanascita
  end if
  if Rs!luogonascita <> "" then
    txtluogonascita.Text = Rs!luogonascita
  end if
  Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End Sub