Boa tarde a todos.

Tenho uma tabela com vários campos onde alguns estão com os valores em branco. Até aí tudo bem porém, ao carregar alguma campo em uma ListView por exemplo, ocorre o erro abaixo:

Erro em tempo de execução '94':

Uso de 'Null' inválido.

Sei que há a possibilidade de eu validar através do 'IsNull' cada campo e tratar porém, minha tabela possui muitos campos. Há alguma outra solução menos trabalhosa para este problema sem precisar validar campo por campo? Pesquisei algumas soluções na internet porém não encontrei nada que me ajudasse.
Segue exemplo de uma parte do meu código responsável por alimentar minha ListView:

    While Not rs.EOF
        With lv.ListItems.Add(a)
        .Text = Format(rs!ID, "000000")
        .SubItems(1) = rs!razao_social
        .SubItems(2) = rs!nome_fantasia
        .SubItems(3) = rs!cnpj_cpf
        .SubItems(4) = rs!insc_estadual_rg
        .SubItems(5) = rs!bloqueado
        rs.MoveNext
        a = a + 1
        End With
    Wend