Ricerca di un record indicato in una TextBox

[Robyn69]

ciao a tutti
sto terminando un programmino grazie al vostro aiuto
ma ancora ho un problema da risolvere
e vi spigo cosa
vorrei confrontare una textbox con il contenuto di una tabella e se il risultato e vero
visualizzare il contenuto nei rispettivi campi
sto inserendo questo codice ma non e completo ed ho capito anke perchè (forse)
ma non riesco a fornire la condizione giusta il codice e questo

Private Sub Text1_Change(Index As Integer)
If (Text4.text) = (lstADD.SelectedItem.Text) Then
Text1(0) = lstADD.SelectedItem.Text
Text1(1) = lstADD.SelectedItem.SubItems(1)
End If
End Sub

lstADD e il riepilogo dei campi Nome e Cognome
io vorrei dirgli di confrontare la text4 con il contenuto della lstAAD e se cè
di visualizzare il nome e cognome nelle rispettive text1(0) e (1)
dovè che sbaglio?

[mgmg]

Prova se vuoi questo codice:

Private Sub Text4_LostFocus()

    For x = 1 To lstADD.ListItems.Count

        If Text4= lstADD.ListItems.Item(x) Then
            Text1(0) =lstADD.ListItems.Item(x)
            Text1(1) = lstADD.ListItems.Item(x).SubItems(1)
            Exit For
        End If
        
    Next

End Sub

Ciao