اريد طريقة تسمية عمود Headertext في ال Datagrid

هذ الكود لعرض بيانات الجدول مع عمل تجميع لعدد الاصناف ووضعهم في عمود ثالث داخل الجريد

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Try
			Dim SQLDa As New SqlDataAdapter("Select ItemID,ItemName,Count(ItemID) From Items", Conn)
			Dim ds As New DataSet
			SQLDa.Fill(ds)
			'-------------------
			Dim bs As New BindingSource
			bs.DataSource = ds.Tables(0)
			DataGrid1.DataSource = bs
			'----------
			'إعادة تسمية العمود رقم 3  Count(ItemID)
			DataGrid1.TableStyles(0).GridColumnStyles(0).HeaderText = "إجمالي الاصناف"   'يضهر لي خطأ لانة اصلا الاعمدة تنشأ عند تعبئة الجريد بالبيانات 
		Catch ex As SqlClient.SqlException
		End Try
	End Sub