The code below works kind of in that i see the visual cue to say that the column is sorted but the columns arent actually sorted.
.SortSettings(Sub(sort)
sort.AllowMultiSorting(True)
sort.SortDescriptors(Sub(cols)
Dim tempSortDesc As New SortDescriptor
tempSortDesc.ColumnName = "tk_name"
tempSortDesc.SortDirection = ComponentModel.ListSortDirection.Ascending
cols.Add(tempSortDesc)
End Sub)
End Sub) _