Trocar títulos do DataGrid não funciona

Olá

Eu estou tentando trocar o título do DataGrid, peguei uns código aqui mais

não esta funcionando. ai esta meu código... por favor vejam onde eu estou

errando.

Dim varComercial As String = "com" BDLogin() Conexao.Open() Dim cmd As New MySql.Data.MySqlClient.MySqlCommand("select * from cliente where tipo_contrato like '" & varComercial & "'", Conexao) Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd) Dim ds As New DataSet Dim tb As New DataTable da.Fill(tb) ds.Tables.Add(tb) Dim tableStyle As New DataGridTableStyle Dim column As New DataGridTextBoxColumn tableStyle.MappingName = "cliente" column = New DataGridTextBoxColumn column.MappingName = "codigo" column.HeaderText = "Código" column.Width = 40 tableStyle.GridColumnStyles.Add(column) column = New DataGridTextBoxColumn column.MappingName = "nome" column.HeaderText = "Nome" column.Width = 266 tableStyle.GridColumnStyles.Add(column) tableStyle.GridColumnStyles.Add(column) DGContrato.TableStyles.Add(tableStyle) Dim dv As New DataView(ds.Tables("cliente")) DGContrato.DataSource = dvQuando eu mudo essa última linha pra 

 DGContrato.DataSource = tb

mostra todos os dados mais não altera o nome dos títulos.