Erro "conversão dot tipo dbnull para o tipo string não é válida

O erro ocorre quando o campo não tem dados.

Private Sub PreencheControles(ByVal dados As MySqlDataReader)

Try

Do While dados.Read

txtidentificacao.Text = dados("Id")

txtnome.Text = dados("NOME")

txtend.Text = dados("ENDERECO")

txtbairro.Text = dados("Bairro")

txtcidade.Text = dados("cidade")

txtestado.Text = dados("ESTADO")

mtbcep.Text = dados("CEP")

mtbtelefone.Text = dados("telefone")

txtcnpj.Text = dados("CNPJ")

txtcobertcont.Text = dados("cobertcont")

txtie.Text = dados("IE")

txtcontrato.Text = dados("Contrato")

txtemail.Text = dados("email")

txtresponsavel.Text = dados("responsavel")

Loop

dados.Close()

Catch ex As Exception

MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try

End Sub