Olá,
Você deverá criar uma função para localizar o ItemData para você:
cmbAtividades.ListIndex = Localiza_ItemData(cmbAtividades, TBControle("IDAtividade"))
em um módulo crie a seguinte função:
Public Function Localiza_ItemData(Cmb as Object, Item as Long) as Integer
Dim Cont as Integer
For Cont = 0 To Cbm.ListCount - 1
If Cmb.ItemData(Cont) = Item Then
Localiza_ItemData = Cont
Exit Function
End If
Next
'Se não encontrar, então limpa a propriedade text da Combo, sem remover o seu conteúdo
Localiza_ItemData = -1
End Function
um abraço,
Sandro.
