Excel Carregar combobox via Acess e ignorar linhas vazias

[josequali]

Boa noite.

 

Gostaria de saber se existe alguma forma de preencher a combobox do Excel com dados do Acess e ignorar as linhas vazias.

Atualmente uso esse código do vídeo abaixo, mas caso tenha linha vazia ele da erro. Adicionei a ele o critério de ordem by ou distinct, assim como tratamento de erro, mas mesmo assim não funciona bem.

 

Desde já muito obrigado

 

[josequali]

@Midori @Basole tem alguma sugestão de como resolver, não achei nenhum material que tratasse dessa limitação . Obrigado

[Midori]

Qual erro e em que parte do seu codigo? Se possível anexe os arquivos, pode ser com dados fictícios, para facilitar o entendimento do problema e possibilitar o teste da planilha.

[josequali]

@Midori Segue em anexo o arquivo teste.

Sub CarregarComboboxfiltro()
conectdb
'esse comando deveria permiti carregar os nomes das empresas ao se relaciona com coluna ramal
rs.Open "Select distinct Produto from TabTeste", db, 3, 3
Do Until rs.EOF
Me.filtro2.AddItem rs!Produto
rs.MoveNext
Loop
FechaDb
End Sub

Para conectar ao banco de dados mostre a localização do banco de dados acess. Já irei deixa de proposito uma linha do banco de dados vazia na tabela teste. Esse erro irá aparecer

 

Arquivo teste.zip

[Midori]

@josequali Antes de adicionar no combo verifique se o produto não é nulo,

 

Do Until rs.EOF
    If Not IsNull(rs!Produto) Then
        Me.filtro2.AddItem rs!Produto
    End If
    rs.MoveNext
Loop

 

[josequali]

@Midori perfeito! Obrigado