01.Protected Sub ImageButton3_Click(sender As Object, e As ImageClickEventArgs)
02. Dim DS As New DataSet
03. Dim sql As String = "update [dbo].[kanban_status] set Station=" & dd1.Text & " where [SN]='" & la2.Text & "'"
04. Dim Ap As New SqlClient.SqlDataAdapter(sql, "Data Source=server\sqlexpress;Initial Catalog=sps_trace;User ID=12345;Password=12345")
05. Try
06. ap.Fill(DS)
07. msgbox("Succes")
08. Catch ex As Exception
09.
10. End Try
11. End Sub
