Ops scusa.. dovrebbe essere senza apice singolo:


And datan = #" & txtdata.Text & "#"


Non mi ricordo.. tu prova