Visual Basic - Problemas con ListBox

Necesito que alguien me ayude con esto. Les muestro el codigo y lo explico.
While Not miRecordset.EOF
iRegistros = CInt(iRegistros) + 1
lstResultados.AddItem (miRecordset("Descripcion"))
lstResultados.ItemData(lstResultados.NewIndex) = miRecordset("codigo")
miRecordset.MoveNext
Wend

Lo anterior lo hago con el fin de que al hacer DobleClick en un elemento del ListBox uno pueda rescatar mas infomarción del mismo, por eso es que en el itemData guardo el Codigo del Producto. Pero se me cae al tratar de guardar Codigos con Letras. Ej: Codigo = 221A.
Como puedo salvar eso? o bien, existe otra forma de poder rescatar el codigo al hacer doble click en el registro de la lista y asi poder ver mas informacion del producto?
Gracias

Hola DamocleS:

Segun tengo entendido lo que deseas es que a partir de un registro del ListBox que se te muestren mas datos sobre dicho registro.

Si lo que quieres es almacenar en un ListBox todos los datos de un campo en concreto, podría ser como el código siguiente:

do until miRecorset.EOF

lstResultados.AddItem miRecordset.Fields("Codigo")
miRecordset.MoveNext

loop

' De esta forma se te almacenarían todos los valores de la base de datos que esten en el campo "Codigo". Despues si quieres buscar más información sobre un registro, en vez de utilizar el Index, utilizar la propiedad TEXT para compararlos.

Una forma de poder rescatar los datos despues de haberlos introducido en el ListBox:
do until miRecordset.EOF
if lstresultados.text = miRecordset.Fields("nombre_del_campo") then
'una vez lo encuentra el puntero se situa sobre dicho registro y puedes rescatar todos los datos de los campos que quieras, por ejemplo:'
txtdescripcion.text = miRecordset.Fields("descripcion") ' Este código mostraría en un cuadro de texto el contenido de la descripción de dicho registro'
end if
miRecordset.MoveNext
loop

Espero que te sirva de algo. Es un poco complicado de esplicar, mandame un mail si no te aclaras.