Hola wenas,
como te comenté en el post anterior, prueba formateando la fecha así:
sql = "SELECT * FROM citas where fecha = #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#" 
Elimina estas dos líneas del evento Load:
Set record = New ADODB.Recordset
sql = "SELECT fecha FROM citas"