Ola pessoal boa tarde gostaria de uma ajudinha no código abaixo para trazer junto com os dados acrescentar o nome do cabeçalho na lista.
idDeficiencia.RowSource = Empty
idDeficiencia.Requery
sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
Call Conexao_Open(sSQL)
Do While Not Rs.EOF
idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
tentei de varias formas mais não veio alguém pode me da uma ajudinha.
idDeficiencia.RowSource = Empty
idDeficiencia.Requery
sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
Call Conexao_Open(sSQL)
Do While Not Rs.EOF
idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
tentei de varias formas mais não veio alguém pode me da uma ajudinha.