Fixed one bug in QueryForm.vb