vb.net อัพเดตข้อมูลไม่ได้ลง sql ไม่ได้ครับ ช่วยหย่อยครับ

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

   End Try
 End Sub