É possível a eliminação desses campos em branco?

Voce quis disser eliminar "registros em branco" ?
Acrescentei essa linha ao codigo: If consulta![nome] <> Null Then
que ficou assim:

Private Sub UserForm_Initialize()
'Cria variável que armazena os comandos SQL
    Dim ComandoSQL As String
    'Armazena na variável o comando que fará a consulta SQL no BD Access
    ComandoSQL = "select Nome from tabela_clientes"
    'Chama a rotina que faz a conexão com o BD
    Call Conecta
    'Atribui a variável objeto de BD a execução dos comandos SQL
    Set consulta = banco.OpenRecordset(ComandoSQL)
    'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
    On Error Resume Next
    'Populando o Listview1
    consulta.MoveFirst
    With Me.ComboBox1
        .Clear
        Do
            If consulta![nome] <> Null Then '  * vefifica se o registro nao é nulo (em branco)
                .AddItem consulta![nome]
            End If
            consulta.MoveNext
        Loop Until consulta.EOF
    End With
    While Not consulta.EOF
        Set List = ListView1.ListItems.Add(Text:=consulta(0))  'id
        List.SubItems(1) = consulta(1)    'nome
        List.SubItems(2) = consulta(2)    'sobrenome
        List.SubItems(3) = consulta(3)    'CPF
        List.SubItems(4) = consulta(7)    'cidade
        List.SubItems(5) = consulta(8)    'UF
        consulta.MoveNext
    Wend
    Call Desconecta
End Sub

Só retificando :

If consulta![nome] <> 0 Then

Valeu muito obrigado!
Não sei porque mas ficou com um campo em branco no combobox, mas ao menos ficou 1 só...

jorgep.tec,
as vezes é bom ter uma opçao de linha em branco.
Mas se quer eliminar essa opção, subst. por esta linha:

consulta![nome] <> ""