Retordo de busca não retorna dados corretamente

Boa tarde,

Estou com um problema no retorno de querys, dependendo se existir campos sem conteúdo no banco (NULL), ele "trava" nesse campo e não carrega os demais dados.

Exemplo:

Dim empresaSELECT As String
Dim i As Integer

empresaSELECT = "SELECT * FROM tb0021_Empresas WHERE codigoEMPRESA = '" & codigoEMPRESA.Text & "'"
Dim CMD As OleDbCommand = New OleDbCommand(empresaSELECT, con)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(CMD)
Dim dr As DataTable = New DataTable da.Fill(dr)

nomeEMPRESA.Text = dr.Rows(i).Item("nomeEMPRESA")
criacaoEMPRESA.Text = dr.Rows(i).Item("criacaoEMPRESA")
observacaoEMPRESA.Text = dr.Rows(i).Item("observacaoEMPRESA")
razaoEMPRESA.Text = dr.Rows(i).Item("razaoEMPRESA")
cnpjEMPRESA.Text = dr.Rows(i).Item("cnpjEMPRESA")
ieEMPRESA.Text = dr.Rows(i).Item("ieEMPRESA")
Caso o campo observacaoEMPRESA esteja com o valor NULL, os demais não são carregados!

Como posso corrigir esse problema?