[Resolvido] Salvar o ID e não o texto de uma combobox na tabela

[afalves 0]

Já tem algum tempo que não mexo com VB e preciso atualizar um sistema feito em Access para o VB6.

 

Neste script abaixo:

 

'TipoAutor
	 SQL = "Select ideTipoAutor, texTipoAutor from TipoAutor order by IdeTipoAutor"
	 Dim rs As New ADODB.Recordset
	 rs.Open SQL, cn
	 
	 Do While Not rs.EOF
		 Me.cbo_tipoAutor.AddItem rs("TexTipoAutor")
		 rs.MoveNext
	 Loop

Como fazer para salvar o campo ID (ideTipoAutor) e não o texto mostrado na combo (texTipoAutor) no banco de dados ?

 

Obrigado.

[afalves 0]

Opa, feito com base neste post: http://forum.imasters.com.br/index.php...st&p=529847

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif