Olá, gostaria de inserir em um combobox o Item e o index desse Item.
O item (nome_funcionario) eu faço através de uma consulta em um banco de dados e eu queria que o index fosse o id_funcionario.
Eu já tentei de diversas formas e não consegui.
OBS: O Erro que ele causa é "Era esperado: = "
Segue o Código abaixo.
Private Sub UserForm_Initialize()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim TotalCursos As Variant
'Parametrização do Banco de Dados
Set cn = New ADODB.Connection
strDB = ThisWorkbook.Path & "\SistemaGerenciamento.accdb"
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strDB & ";"
cn.Open
strSQL = "SELECT id_funcionario, nome_funcionario FROM tbl_funcionario"
Set rs = cn.Execute(strSQL)
Do While Not rs.EOF
cmb_funcionario.AddItem (rs("nome_Funcionario"),rs("id_funcionario"))
rs.MoveNext
Loop
cn.Close
End Sub