ADICIONAR ITENS NO COMBOX VIA COMANDOS VB6

Citação:

:
Boa Noite,

Estou com o comando abaixo no vb6 para adicionar itens no combox esta funcionando, o porem que não esta gravando os itens para futuras inclusões.
Alguém pode me ajudar a gravar os itens no formulário.

Private Sub cmdbox4_Click()

Dim newitem As String
newitem = Text4.Text
If newitem <> [Ô][Ô] Then
Combo4.AddItem newitem

Else
MsgBox [Ô]Erro[Ô]
End If
End Sub

Citação:

Esse código não deu certo, não fez nenhuma inclusão, é só isso que eu tenho que colocar mesmo ?

Citação:

Agora para obter as informações atribuidas no Combo futuramente é necessário armazena-las em um banco de dados

Private Sub CarregaCombo()
	Dim iIndex As Integer
	Dim vSQL As String
	Dim rst As New ADODB.Recordset
	
	vSQL = [Ô]SELECT codigo_id, nome FROM SuaTabela[Ô]
	
	rst.Open vSQL, SuaConexao
	
	If rst.RecordCount > 0 Then [ô]Verifica se a consulta retornou registros
		rst.MoveFirst [ô]Vai para o primeiro registro
		
		iIndex = 0 [ô]Variavel utilizada para tratar o indice do ComboBox (zero é inicial)
		
		[ô]Prepara a estrutura de repetição para carrega o ComboBox
		While Not rst.EOF
			[ô]Carrega o Combo com o nome e passa o indice como parametro
			ComboBox1.AddItem rst([Ô]nome[Ô]), iIndex 
			
			[ô]Como o indice já foi criado na linha de cima odemos utilizar a 
			[ô]propriedade ItemData para armazenar o código do nome passando o indice criado
			ComboBox1.ItemData(iIndex) = rst([Ô]codigo_id[Ô])
			
		
			rst.MoveNext [ô]Avança um registro
		Wend
		
	End If

	rst.Close
	Set rst = Nothing
End Sub

[ô]Para capturar as informações do ComboBox faça assim!

MsgBox [Ô]CODIGO_ID: [Ô] & ComboBox1.ItemData(ComboBox1.ListIndex) & VbCrLf & [Ô]NOME: [Ô] & ComboBox1.List(ComboBox1.ListIndex)