Prova:

codice:
sqr = "select descrizione,Um,qta,prezzoacq,tot from carico where ndoc= " & a & " And datan = '#" & txtdata.Text & "#'"