<br /> Private Sub showreport_Click()<br /> sql = "select * from student_record_database where"<br /> sql=sql+ Grade='" & Combo1.Text & "' AND Meal='" & Combo11.Text & "'"<br /> Set RES = CON.Execute(sql)<br /> Set DataReport1.DataSource = RES<br /> DataReport1.WindowState = vbMaximized<br /> DataReport1.Show vbModal<br /> End Sub<br />
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)