Por aqui anda un tema donde expone este ejemplo:
Código:
Dim fecha As DateTime = DateTime.Now
Dim fec AsString
fec = Format(fecha, "yyyy-MM-dd hh:mm:ss")
'Aqui convierto el string a DateTime
fecha = Convert.ToDateTime(fec)
Prueba algo asi, y verás que tendras un mejor resultado. Consulta también la ayuda en línea de FORMAT() para mas detalles.
Saludos