Allora formatta la data così
Dim dataTrasf as date
DataNascita = Txt_Giorno.Text
DataTrasf = CDate(DataNascita)

e poi sulla colonna prova a scrivere

Format(DataGioTrans, ("MM/dd/yyyy"