01.dim strconn_ as string = "server=yourservername;database=yourdatabase;user id=YourUser;pwd=TopSecret"
02.dim sql as string = "" : dim da_ as new sqldataadapter : dim dt_ as new datatable : dim sql_conn_ as new sqlconnection
03.dim sql_cmd_ as new sqlcommand
04.
05.
06.Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_s1.Click
07.sql_conn = new sqlconnection(strconn)
08.sql_conn.open()
09. sql = "select CUSTID,CERTIFICATE from TBL_POLICY_SUCCESS where ASSESS_TOTAL_TA_SPS > '" & txt_s1.Text & "' AND TBL_POLICY_SUCCESS.FNAME_THAI = '" & cbb_s1.Text & "'"
10.da_ = new sqldataadapter(sql,sql_conn_)
11.dt_ = new datatable
12.da_.fill(dt_)
13.grid.datasource = dt_
14.txt_s1.Text = ""
15.
16. End Sub
