Hola
Trata con esto:
En el dateTimePicker
1) poner en la propiedad CustomFormat: dd/MM/yyyy H:mm:s
2) en la propiedad Format: Custom
si sigue el error:
dim valorTemporal as String= ds.table(0).rows(0),item("hora")' supongo que aqui esta la fecha_hora q obtienes de la BDD
Dim DateToBDD_ As Date
Dim year As String
Dim mes As String
Dim dia As String
year = (tu_campo_año)' utiliza la propiedad substring con la variable valorTemporal para sacar solo el año
mes = (tu_campo_mes) ' utiliza la propiedad substring con la variable valorTemporal para sacar solo el mes
dia = (tu_campo_dia)' ' utiliza la propiedad substring con la variable valorTemporal para sacar solo el dia
'igual haces para hora, minutos, segundos
DateToBDD_ = New Date(year, mes, dia)
me. dateTimePicker1.value= DateToBDD_
saludos, espero te sirva