Puxa... era só um trechinho do código...
Bom se vc falou q está com problemas ao inserir então o problema deve ser nesta linha:
dtaapart.Recordset.AddNew
Vc tem q fechar com um update.
dtaapart.Recordset.AddNew
'insere os dados
dtaapart.Recordset.update