Estou tentando adaptar um modelo de cadastro criado pelo Tomas Vasques com adaptacao de listview do Coutinho, substituindo o BD em Excel por um BD Access.
Estou com problemas relacionado com a formatacao dos campos do BD access com as textbox do formulario excel.

Problema 1: Inserir dados de uma consulta no formulario no sentido ACCESS >>> EXCEL
No BD access tenho campos com formatacao de texto, data e moeda. Formatacao texto aceita valores nulo/vazio. Data e moeda nao aceita valores nulo porem visivelmente, tem registros com campos vazio ( em branco ).
Ao fazer uma consulta onde tenho que por exemplo pegar um campo data que esteja vazio, ao tentar colocar na textbox acontece um erro em tempo de execucao com codigo 2147217887(80040e21).
A linha de codigo do vba estava assim:

Me.txtData = consulta("Data")

E consegui arrumar dessa forma:

Me.txtData = consulta("Data") & ""

Problema 2: Alterar / Inserir novo registro EXCEL >>> ACCESS
O problema aqui seria o inverso. Ao tentar pegar o dado de uma textbox vazia ou com letras ( no caso de uma textbox para datas ) e colocar no access num campo formatado como Data gera o erro em tempo de execucao 3421. Porem, nesse caso ja nao consegui resolver.
Como sao varias textboxs, nao da pra fazer uma verificacao com IF ( pelo menos eu nao consegui ).
O codigo referente onde acontece o erro esta assim:

consulta("Data") = Me.txtData

Obrigado pela atencao.