Form

.Open "SELECT * FROM tablaboletas WHERE fecha_boleta >= '" & Format(fecha1.Value, "yyyy/mm/dd") & "' and Fecha_boleta <= '" & Format(fecha2.Value, "yyyy/mm/dd") & "'"
Set dataporfecha.DataSource = Rsboletas
dataporfecha.Show
End With
este es para las fechas pero para combinarlo con el vendedor es donde me quedo si alguien me pudiera alumbara el foco le agradeceria mucho gracias amigos y feliz dia a todos.