[Resolvido]limpar listbox

Boa noite pessoal gostaria mais uma vez da ajuda de voces com o codigo abaixo o que acontece e que gostaria de limpa uma listbox se a proc não retornar valores porem ela não limpa.


Dim sSQLC As String

Call Conexao_Open
sSQLC = "CALL sp_enc_cand_sugestao(" & idprofissao & ");"
rscandidatos.CursorLocation = adUseClient
rscandidatos.Open sSQLC, cn, adOpenDynamic, adLockOptimistic


If Not rscandidatos.EOF Then
Set Me.Lista_Candidatos.Recordset = rscandidatos
Me.Lista_Candidatos.Requery

Else

Me.Lista_Candidatos.ControlSource = ""
Me.Lista_Candidatos.Requery

End If

rscandidatos.Close
Set rscandidatos = Nothing


desde ja agradeço a ajuda de todos

Não seria

Código:

...
Else

  Me.Lista_Candidatos.RowSource = ""
  Me.Lista_Candidatos.Requery

End If
...

Bom dia ivan então ela não limpa o que acontece é que quando ela é preenchida eu seleciono outro cadastro que não tem registro aí que ela não limpa e fica com o preenchimento anterior e tô usando tipo tabela/consulta.
No caso eu queria que se n tivesse dados limpa a lista mais n vai

Falha minha. Se você seta o recordset, deve limpar o recordset e não o rowsource, isto é, ao invés de

Código:

Me.Lista_Candidatos.rowsource =  ""

use

Código:

Set Me.Lista_Candidatos.Recordset = nothing

Grande Ivan como sempre ajudando obrigado. funcionou perfeito

O fórum agradece o retorno. Sucesso.