Hola
Puedes utilizar parametros,
en tu command... pon
comando.parameters.add("@fecha", fecha1.Value)
y en la select pon:
sel = sel & " WHERE cp.Fecha >= @fecha "
con esto evitas tener problemas en las conversiones a la par que aumentas la seguridad de tu aplicacion evistando ataques por inyeccion de codigo sql
si quieres mas informacion puedes consultar los materiales de la tercera estrella del desarrollador 5 estrellas (programa de capacitacion gratuito de microsoft)
http://www.mslatam.com/latam/msdn/comunidad/dce2005/
Un saludo.