[Resolvido]ignorar Nulos na função Select

Boa noite prezados;

Tenho um código que alimenta uma combo box, usando a seguinte linha:

Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado ORDER BY Apelido;")

Pois, bem, o campo referenciado nem sempre possui preenchimento, e possui registros com valor nulo, e isso tem me gerado problemas na hora de selecionar a combo, entao eu pensei em modificar a instrução acima de forma que ela desprezasse os nulos e trouxesse somente os valores NotNull. Poderiam me ajudar?

Abaixo deixo a instrução completa, extraida daqui desse forum que tanto contribui com meu trabalho.

Abraços!

Código:

Private Function fncCarregaCboC() As Boolean
Dim rs As DAO.Recordset
Dim db As DAO.Database
On Error GoTo trataerro
aux.AbreConexao aux.chave
Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado ORDER BY Apelido;")
Me!con.RowSource = ""
Do While Not rs.EOF
Me!con.AddItem rs!Apelido
rs.MoveNext
Loop
rs.Close
db.Close
'aux.FechaConexao aux.chave
sair:
Exit Function
trataerro:
Select Case Err.Number
Case 3031, 3044, 3131: fncCarregaCboC = True
End Select
End Function

Boa noite,
Retirei o "Resolvido" que terá colocado inadvertidamente
Sobre a dúvida
Set rs = CurrentDb.OpenRecordset("Select * FROM Eleitorado WHERE Not IsNull(Apelido) ORDER BY Apelido;")

Muito obrigado Alexandre Neves, caiu como luva, grande abraço