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.MoveMin
  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

Do While Not rs_Pronaf.EOF

    If Len(rs_Pronaf!NOME) > 0 then
        Combo1.AddItem rs_Pronaf!NOME

   End If
    rs_Pronaf.MoveNext
Loop

 

Supondo que os nomes em branco não sejam nulos.

 

 

Olá,

 

Apenas complementando a resposta do amigo Roberto, você pode testar se o nome é nulo:

 

Valeu camarad's brigado!

Meu brother Webmaster, se puder encerrar o tópico pra mim eu agradeço, pois, postei sem estar registrado, é que as vezes entro no site e já estou logado e as vezes não, não sei porque isto ocorre.