Postada em 06/06/2005 00:25 hs
Olá,
Se o ID é um número ( byte/integer/long) vc deve usar a propriedade ItemData para armazena-lo. Aproveitando o exemplo da Suzana, ficaria assim:
Combo1.Clear
Dim RSAux As New ADODB.Recordset
Set RSAux = Cn.Execute("SELECT * FROM Profissoes order by profissoes")
If Not RSAux.EOF Then
do While Not RSAux.EOF
Combo1.AddItem RSAux!profissoes
Combo1..ItemData(combo1.newindex)=RSAux!ID
RSAux.MoveNext
loop
End If
[ ]',s
Tomás
|
