Arkadaşlar aşağıd akodlarını verdiğim projede liste1 (listbox) verileri bul ile getiriyorum. Ama benim istediğim listboxa gelen verilerin uzeriene DBclick yapınca textboxlara ilgi kişinin verilerin gelmesini istiyorumamam yapamadım. Yardımlatrınızı bekliyorum

KODLAR:
-------------------

Private Sub Command1_Click()
Command8.Enabled = True
Command9.Enabled = False
Data1.Recordset.AddNew
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text7.Text = ""
Text8.Text = ""
Text6.Text = ""
Text9.Text = ""
Combo2.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Data1.Recordset.AddNew

End Sub

Private Sub Command2_Click()
Command9.Enabled = True
Command8.Enabled = False

End Sub

Private Sub Command3_Click()
Form1.Show


End Sub

Private Sub Command4_Click()
Frame1.Visible = True
For a = 1 To 100
rehber.ProgressBar1.Value = a
For b = 1 To 1500000
Next b
Next a
MsgBox "Islem tamamlandi", 0, "Sonuc"
Close #1
End
Frame1.Visible = False
End Sub

Private Sub Command5_Click()
XPList1.Clear
Set db = OpenDatabase("C:\Program Files\Common Files\FthDB\db.fth", dbOpenSnapshot)
Set kayitlar = db.OpenRecordset("musteri")



x = kayitlar.RecordCount
kayitlar.MoveFirst
eleme = XPText5.Text

For t = 1 To x

If Left(kayitlar!adi, Len(eleme)) = eleme Then
XPList1.AddItem kayitlar!adi
Y = Y + 1
End If

kayitlar.MoveNext
End Sub

Private Sub Command7_Click()
Unload Me
End Sub

Private Sub Command8_Click()
Data1.Recordset.Update
If Data1.Recordset.EditMode dbEditAdd Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase("E:\VISUAL_BASIC\ORNEK\rehber\data.md b")
Set rstInfo = db.OpenRecordset("defter")


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text7.Text = ""
Text8.Text = ""
Text6.Text = ""
Text9.Text = ""
Combo2.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""

End Sub


Private Sub Liste1_DblClick()
On Error Resume Next
Liste1.Refresh
With rstInfo
.MoveFirst
.Move List.ListIndex
Liste1.Refresh
.Edit
Liste1.Refresh
Text1.Text = !adsoyad
Text2.Text = sirket



List.Refresh
.Update
End With



End Sub



Private Sub Text17_Change()
Dim eleme As String
'Dim kayitlar As String
Liste1.Clear
Set db = OpenDatabase("E:\VISUAL_BASIC\ORNEK\rehber\data.md b", dbOpenSnapshot)
Set kayitlar = db.OpenRecordset("defter")



x = kayitlar.RecordCount
kayitlar.MoveFirst
eleme = Text17.Text

For t = 1 To x

If Left(kayitlar!adsoyad, Len(eleme)) = eleme Then
Liste1.AddItem kayitlar!adsoyad


Y = Y + 1
End If

kayitlar.MoveNext
Next
End Sub
__________________