' Load DataGrid Me.dgSearchResult.DataSource = myDS.Tables("Search") Me.dgSearchResult.ReadOnly = True Me.dgSearchResult.AllowNavigation = False Me.dgSearchResult.AllowSorting = False ' Now, Add the new DataGrid view Call MyAddCustomDataTableStyle_Search() Private Sub MyAddCustomDataTableStyle_Search() ' Make new DataTableStyle for DataGrid Dim ts As New DataGridTableStyle() ts.MappingName = "Search" ts.ReadOnly = True ts.AllowSorting = False ts.AlternatingBackColor = Color.LightYellow Dim TextCol1 As New DataGridTextBoxColumn() TextCol1.MappingName = "EmployeeID" TextCol1.HeaderText = "EmployeeID" TextCol1.Width = 65 TextCol1.NullText = "" ts.GridColumnStyles.Add(TextCol1) Dim TextCol2 As New DataGridTextBoxColumn() TextCol2.MappingName = "Name_e" TextCol2.HeaderText = "English Name" TextCol2.Width = 150 TextCol2.NullText = "" ts.GridColumnStyles.Add(TextCol2) Dim TextCol3 As New DataGridTextBoxColumn() TextCol3.MappingName = "Name_a" TextCol3.HeaderText = "Arabic Name" TextCol3.Width = 150 TextCol3.NullText = "" ts.GridColumnStyles.Add(TextCol3) Dim TextCol4 As New DataGridTextBoxColumn() TextCol4.MappingName = "CivilID" TextCol4.HeaderText = "Civil ID" TextCol4.Width = 90 TextCol4.NullText = "" ts.GridColumnStyles.Add(TextCol4) ' Add the TableStyle to the original DataGrid Me.dgSearchResult.TableStyles.Add(ts) End SubHTH