VB6 Data Report แบบเขียน code sql ใน ปุ่ม Btn มีไหมค่ะ ใครรู้วิธีเขียนบ้างคะ

With DataEnvironment1
                If .rsCommand2.State = 1 Then .rsCommand2.Close
                        DataReport2.Show
                        DataReport2.SetFocus
   End With

SELECT p_fname, p_district, p_date, p_id, p_lname, p_name, p_province, p_tel, p_zippost, p_amphur, p_address FROM patient WHERE (p_date BETWEEN ? AND ?)

SELECT cs.*,mt.* FROM customer cs LEFT JOIN  meters mt ON cs.cs_id=mt.cs_id WHERE cs.cs_id IN (" & Rs!bd_user & ")