Visual Basic - Consulta por combo

Hola, miren tengo una tabla en MySql que es de la siguiente forma:

Codigo Descripcion
41633 AAAAAAAAA
63763 VVVVVVVVV
23654 FFFFFFFFF

Luego necesito cargar esta tabla en un combo, pero cuando ya la lleno necesito realizar una consulta en la base de datos si el codigo elegido en el combo es igual al de la base de datos, pero si se fijan en el combo cuando pregunto por Combo.ListIndex, me aparece el correlativo del combo NO el CODIGO que necesito para comparar dentro de la base de datos ejemplo: si quiero consultar por "VVVVVVV" aparece como Combo.ListIndex = 2 , no como Combo.ListIndex = 63763,
¿De que manera puedo obtener el valor del codigo en el combo, porque hasta solo se obtener su indice no el valor del codigo? yo igual cargo el codigo y la descripcion de esta manera
With Combo1
.Item(0).Clear
.Item(0).AddItem "<SELECCIONE>"
.Item(0).ItemData(.Item(0).NewIndex) = -1
CSQL = "Select * from Ciudad"
If Sql(adUseClient, 1, 1, CSQL, rs, False) Then
rs.MoveFirst
While Not (rs.EOF)
.Item(0).AddItem rs!DesCiu
.Item(0).ItemData(.Item(0).NewIndex) = rs!CodCiu
rs.MoveNext
Wend
rs.Close
End If
.Item(0).ListIndex = 0
End With

combo1.text