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

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
 LoopComo fazer para salvar o campo ID (ideTipoAutor) e não o texto mostrado na combo (texTipoAutor) no banco de dados ? 

Obrigado.