ho un problema con il click di una combo
praticamente quando ho 2 o + nomi uguali mi trova sempre e solo il primo perche esce dal ciclo potete aiutarmi a modificale il codice in modo che qando clicco mi trovi il nome cliccato?

[code]

Private Sub Combo1_Click()
On Error Resume Next

If Combo1.Text <> "" Then
Modifica = 1
If Data1.Recordset.EOF <> True Or Data1.Recordset.BOF <> True Then
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Combo1.Text = (Data1.Recordset("COGN DENOM SOC 1")) Then

Exit Do
End If
Data1.Recordset.MoveNext
Loop

End If
End If
End Sub

[\code]


grazie a tutti