L'ho trovato!!! Grazie
Come lo devo impostare ?
Dim iDataNascita As Date oppure As String
iDataNascita = DTPickerData.Value punto Value

nel database il valore come lo passo values=' " & iDataNascita & " ' " oppure con # #