How can i pass sql query to a sub report from VB form??