RETIRAR CAMPOS EM BRANCO COM SQL

USUARIO.EXCLUIDOS 26/08/2007 21:53:36
#232745
Boa noite galera!

bom, tenho a seguinte questão, uso o Do While abaixo para preencher minha combo, porém aparecem campos em branco deixando espaços dentro da combo, como fazer para a SQL ignorá-los?

Dim cnncomando As New ADODB.Command
Dim rs_Pronaf As New ADODB.Recordset
With cnncomando
.ActiveConnection = cnnProjetos
.CommandType = adCmdText
.CommandText = " select * from projetos "
Set rs_Pronaf = .Execute

rs_Pronaf.MoveFirst
Do While Not rs_Pronaf.EOF
Combo1.AddItem rs_Pronaf!NOME
rs_Pronaf.MoveNext
Loop
End With

Set rs_Pronaf = Nothing
Set cnncommando = Nothing


A list da combo fica assim

JILNEY
ACASSIO
JOÃO

MATHEUS
JUNIOR

GILBERTO

Gostaria de retirar os espaços em branco para ficar:

JILNEY
ACASSIO
JOÃO
MATHEUS
JUNIOR
GILBERTO
USUARIO.EXCLUIDOS 26/08/2007 22:20:35
#232747 Resposta escolhida 
  Do While Not rs_Pronaf.EOF
    if not isnull(rs_Pronaf!NOME) then _
    Combo1.AddItem rs_Pronaf!NOME
    rs_Pronaf.MoveNext
  Loop
ADRIANO.007 27/08/2007 00:51:25
#232750

If Trim(rs_Pronaf!NOME) <> "" Then
Combo1.AddItem rs_Pronaf!NOME
End If
USUARIO.EXCLUIDOS 27/08/2007 10:10:46
#232790
Obrigado brothers, OK!
Tópico encerrado , respostas não são mais permitidas
Voltar