Saludos a todos,
Tengo el siguiente codigo donde almaceno la información en una tabla de SQL server, el detalle aqui es que la fecha no se almacena, lo demas no tiene problemas solo la fecha es la que no se guarda:
Private Sub AddElementos(ByVal Usuario As String, ByVal Password As String, ByVal BaseDatos As String, ByVal Servidor As String)
Dim CadenaConexion As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID =" & Usuario & ";Password =" & Password & ";Initial Catalog =" & BaseDatos & ";Data Source =" & Servidor
CN = New OleDb.OleDbConnection
CN.ConnectionString = CadenaConexion
Try
CN.Open()
CMD = New OleDbCommand
CMD.Connection = CN
CMD.CommandText = "INSERT INTO [CA_FOLIOCONSECUTIVO] (NOMBRE, FECHA, CONCATENADO, OBSERVACIONES) VALUES (?,?,?,?)"
CMD.Parameters.AddWithValue("@NOMBRE", Me.NombreComboBox.Text)
CMD.Parameters.AddWithValue("@FECHA", CDate(Format(Me.FECHADateTimePicker.Value, "yyyy/mm/dd")))
CMD.Parameters.AddWithValue("@CONCATENADO", Me.YEARComboBox.Text)
CMD.Parameters.AddWithValue("@OBSERVACIONES", Me.OBSERVACIONESTextBox.Text)
CMD.ExecuteNonQuery()
Catch ex As Exception
End Try
CN.Close()
End Sub
Pongo en rojo lo que hace referencia a la fecha, el campo de la fecha es un DATATIME y se supone que con el DateTimePicker al seleccionar la fecha esta deberia almacenarse sin problemas pero como de costumbre 
no es así.
Alguien podría decirme donde radica el problema y como solucionarlo?
De antemano muchas gracias. 