On Error Resume Next
Dim ws As Worksheet: Set ws = Worksheets("dbbrg")
Dim C As Range
Dim Baris As Long
Set C = ws.Range("A:A").Find(Me.ListView1.SelectedItem, LookIn:=xlValues)
If Not C Is Nothing Then
Baris = C.Row
With ws
Me.TextBox2.Value = .Cells(Baris, 1).Value
End With
End If