visualizzazione di più campi

[dops]

Ciao.. io visualizzo il contenuto di un campo in una listbox tramite questo codice:

Private Sub Form_Load()
Set DB = OpenDatabase(App.Path & "\dbad97.mdb") 
  sSql = "Select * FROM tabprinc  ORDER BY Cognome"
  Set Rs = DB.OpenRecordset(sSql) 
  Do While Not Rs.EOF    
  lstDb.AddItem Rs!nome   'Aggiungo il valore del campo alla ListBox
   Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End sub

vorrei visualizzare oltre al nome del cliente anche il suo cognome e se cambio il codice in grassetto in

lstDb.AddItem Rs!nome & Rs!cognome

riesco a visualizzarlo ma al click su uno di quelli presenti nella listbox non visualizzo gli altri campi che devo visualizzare in alcune txtbox tramite questo codice:

Private Sub lstDb_Click()

framericerca.Visible = False
tabel.Visible = True
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    
 For i = 0 To Rs.Fields.Count - 1
   If IsNull(Rs(i).Value) = False Then
      txt(i).Text = Trim(Rs(i).Value)
   Else
      txt(i).Text = vbNullString
   End If
Next
   Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    

DB.Close            
Set DB = Nothing
End Sub

come posso modificare?
Ciao

[Gugu]

Mi sembra molto chiaro che a seguito della modifica che hai fatto non ti funzioni più il doppio click sulla listbox.. il codice presente all'evento lstDb_Click() esegue una ricerca nel database per nome, ma in realtà il nome che vai a cercare è composto dal nome e cognome!
Normalmente io quando faccio allacciamenti ad un db uso sempre un ID contatore o numerico, ovvero una colonna del database con un numero univoco per ogni numinativo.
Utilizzando questo ID come riferimento evito qualsiasi problema..
Ad esempio nel tuo caso specifico, metti in una listbox nascosta o in una variabile con array l'elenco degli ID che rappresentano i nominativi inseriti nell'lstDb.

Private Sub Form_Load()
dim a as integer
a=0
Set DB = OpenDatabase(App.Path & "\dbad97.mdb") 
  sSql = "Select * FROM tabprinc  ORDER BY Cognome"
  Set Rs = DB.OpenRecordset(sSql) 
  Do While Not Rs.EOF    
  lstDb.AddItem Rs!nome & Rs!cognome
  TuaVariabile(a) = Rs!ID
   a=a+1
   Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End sub

Mentre poi nel doppio click metti:
..ovviamente scrivo solo la riga interessata..

sSql = "Select * FROM tabprinc WHERE ID  = " & _ 
                           TuaVariabile(lstDb.listindex)

Prova!
Ciao ciao

edit: ti ho sistemato i tag ;)

[Gugu]

Ops.. scusa ho fatto un po' di confusione coi [CODE]..[B]..
Spero sia chiaro lo stesso...
Ciao