Private Sub List1_Click()
b = 0
For k = 0 To List1.ListCount
If List1.List(k) = List1.Text Then b = k + 1: Stop 'vai al db ed estrapola il record con campo id uguale alla variabile b
Stop
Next k
End Sub



link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp