Mensajes_.RecorsdSource = "Select fecha,hora,mensaje from Mensajes where mensaje = '" & Textbox1.text & "' AND (fecha >= #" & Format(fini.Value, "yyyy/mm/dd") & "# AND Fecha <= #" & Format(ffin.Value, "yyyy/mm/dd") & "#)"