Sql + combo

[Helvio 0]

Bom dia pessoal.

Estou com problema na rotina abaixo.

Eu faço o select na base e na hora da inserção do resultado na cambo não é inserido os dados corretos.

Alguem poderia me ajudar.

Obrigado,

 

Helvio

 

 

Private Sub opt_Demanda_Click(Index As Integer)

On Error GoTo ERRO

Dim ShAreaTecnica As New ADODB.Recordset

cbo_AreaTecnica.Clear

cbo_Profissional.Clear

cbo_SubAgenda.Clear

cbo_SequenciaSub.Clear

lbl_SubAgenda.Visible = False

cbo_SubAgenda.Visible = False

lbl_SequenciaSub.Visible = False

cbo_SequenciaSub.Visible = False

'Carrega cbo_AreaTecnica de acordo com opt_Demanda(Index)

Set ShAreaTecnica = DbBarraFunda.OpenRecordset("SELECT DISTINCT(AreaTecnica) FROM BaseAgendaMédica WHERE TipoDeDemanda = '" & UCase(opt_Demanda(Index).Caption) & "' AND AnoDaAgenda = " & val(cbo_Ano.Text) & "", dbOpenSnapshot)

cbo_AreaTecnica.AddItem ""

While Not ShAreaTecnica.EOF

' Debug.Print ShAreaTecnica.Fields(0)

cbo_AreaTecnica.AddItem ShAreaTecnica.Fields(0)

ShAreaTecnica.MoveNext

Wend

ShAreaTecnica.Close

WIndex = Index

Exit Sub

ERRO:

Call Erros(Me, Err)

End Sub

[Fillipe 0]

Eu faço o select na base e na hora da inserção do resultado na cambo não é inserido os dados corretos.

os dados estão aparecendo como!?!? explique 'na combo não é inserido os dados corretos'e tente mudar o jeito de jogar o campos do recordset na combo,, faça assimWhile Not ShAreaTecnica.EOF cbo_AreaTecnica.AddItem ShAreaTecnica!AreaTecnica ShAreaTecnica.MoveNextWend espero ter ajudado.. qlq duvida posta ae q a gente tenta ajudar..abraço.