combo box e insert

[Alex Mauricio]

Boa noite pessoal.

Estou com o seguinte problema... tenho um código para carregar um combo conforme abaixo:

Private Sub carregaComboFonte()
Set Table_Fonte = BancoDeDados.OpenRecordset("SELECT nomeFonte FROM TbFonte")
    While Not Table_Fonte.EOF
        comboFonte.AddItem Table_Fonte!nomefonte
        Table_Fonte.MoveNext
    Wend
End Sub

até ai ok... no meu form está carregando o combo conforme planejado, dai vem o problema, tenho o código do insert conforme abaixo:

Private Sub cmdIncluirCupom_Click()
Dim checaTelefoneBloqueado As Integer
    If telefoneBloqueado.Value = 1 Then
        checaTelefoneBloqueado = 1
    Else
        checaTelefoneBloqueado = 0
    End If
Set Table_Cadastro = BancoDeDados.OpenRecordset("select * from TbCadastro where telefoneCliente = '" & Replace(Replace(Replace(Trim(txtTelefone.Text), "(", ""), ")", ""), "-", "") & "'")
    If Table_Cadastro.RecordCount = 0 Then
Dim ssql As String
        txtDataCadastro.Text = Date
        txtHoraCadastro.Text = Time
        txtDataUltimaLigacao.Text = Date
        ssql = "insert into TbCadastro values("
        ssql = ssql & Trim(txtCodigoCliente.Text) & ",'"
        ssql = ssql & Replace(Replace(Replace(Trim(txtTelefone.Text), "(", ""), ")", ""), "-", "") & "',"
        ssql = ssql & Val(checaTelefoneBloqueado) & ", '"
        ssql = ssql & Trim(txtNomeCliente.Text) & "',"
        ssql = ssql & Val(comboSituacao.ListIndex + 1) & ",'"
        ssql = ssql & Trim(txtDataCadastro.Text) & "','"
        ssql = ssql & Trim(txtHoraCadastro.Text) & "','"
        ssql = ssql & Trim(txtDataUltimaLigacao.Text) & "',"
        ssql = ssql & Val(comboFonte.ListIndex + 1) & ",'"
        ssql = ssql & Trim(txtObservacoes.Text) & "')"
        BancoDeDados.Execute ssql
        MsgBox "Telefone adicionado com sucesso!", vbInformation + vbOKOnly, "Alerta"
        formatFlexGridCadastro
        carregaFlexGridCadastro
        limparCampos
        mostrarCampos
    Else
        MsgBox "Este telefone já existe no cadastro!", vbInformation + vbOKOnly, "Alerta"
    End If
End Sub

o problema é o seguinte.... ele ta fazendo o insert pegando o índice do combo ( comboFonte.ListIndex + 1 ) porém, eu queria fazer o insert com o codigoCliente ( que eu acredito que seja inclusive o correto ).... como faço?

Obrigado

[kuroi]

crie um array, ai na hora de preencher o combo, você da um ReDim() no array com o numero de registros q tiver.

ai você adiciona o codigo no array correspondendo com o indice do combo.

ai pra pegar o codigo você so faria assim:

codigo = var(Combo1.ListIndex)