Private Sub Liste_Kutusunu_Doldur()
Dim Rs As New ADODB.Recordset
Rs.Open "Tablo1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
Me.Liste10.RowSource = ""
Do Until Rs.EOF
Me.Liste10.AddItem (Rs("id") & ";" & Rs("adi") & ";" & Rs("soyadi") & ";" & Rs("adresi") & ";" & Rs("telefon"))
Rs.MoveNext
Loop
Rs.Close
End Sub
Niye böyle bir şey istediğinizi anlamadım ama buyrun.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs