Boa noite.
Já tentou editar a consulta no access?
tipo: é negado nulo na linha de crtérios?

Experimente com esta alteração:

Coloquei uma condição para o caso de null.

'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 * from tb_dados"
       
    '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 listbox
    ComboBox1 = ""
    
    While Not consulta.EOF
     If Not IsNull(consulta(0)) Then
    With Me.ComboBox1
    .AddItem
    .List(linhalistbox, "0") = consulta(0) 'ID
    '.List(txt_codigo, "1") = consulta(1) 'nome / razao
    
    End With
     linhalistbox = linhalistbox + 1
     
      End If
    
    consulta.MoveNext
    Wend
     
     
   Call Desconecta

  ' Me.lbl_registros = Me.ListBox1.ListCount

Pra carregar a combobox eu costumo usar um range dinamico, assim sempre sera atualizado.

Basole,

usei o codigo que me passou e vi que realmente ele não me carrega valor nulo, porém veja na imagem abaixo a minha situação.

Isso ta acontecendo pq eu inicio meu form preenchendo a combobox e ao cadastrar um novo item eu uso a variavel "Call userform_initialize para que a combobox seja atualizada, e ao fazer isso essas linhas em brancos tbm são carregadas.

wfranca,

Quando voce recarega, o Combobox, ele nao esta sendo 'limpado'.
Experimente alterar a linha:

ComboBox1 = "" 

Por esta:

ComboBox1.Clear 

No codigo

Obrigado Basole,

era isso mesmo

Grato pela ajuda.