Dim miaData As Date

miaData = DTPicker
MsgBox miaData


per passarlo nel db non c'è bisogno dei caratteri #.