01.dim sb as new stringbuilder
02.dim sqlstring as string = ""
03.
04.private sub btn_save....
05.call InitialSqlConnection
06.sb.remove(0,sb.lenght)
07.sb.append("insert into tbl_Mytable ")
08.sb.append("(ID,Myname)")
09.sb.append(" values('" & txt_id.text & "',")
10.sb.append("'" & combobox1.SelectedValue & "')") ' กรณี ต้องการ save value จาก combobox
11.
12.
13.sqlstring = sb.tostring()
14. With com
15. .CommandText = sqlstring
16. .CommandType = CommandType.Text
17. .ExecuteNonQuery()
18. End With
19.
20.
21.end sub
