Dim DS As New DataSet
Dim Ap As New SqlClient.SqlDataAdapter("UPDATE [User] SET [pwd] = @pwd, [FullName] = @FullName, [FullName_TH] = @FullName_TH, [Position] = @Position WHERE [UserID] = @UserID", ConfigurationManager.ConnectionStrings.Item("sps_traceConnectionString").ConnectionString)
Ap.fill(DS)