ما الخطأ فى استيل الداتا جريد

قمت بعمل كود للبحث فى جدول والنتيجة تظهر فى داتا جريد وقمت بعمل استيل للداتا جريد بالكود واحتاج عند تنفيذ البحث تظهر نتيجة البحث بالاستيل الذى قمت بعملة ( أستطعت عمل عمل البحث بدون استيل واحتاج عمل البحث بالاستيل ) اين الخطا هنا

كود البحث بداخل زر

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ConditionCriteria As Boolean = True
        Datasearch1.Clear()  'Dataset.clear
        If XpTextBox1.Text <> "" Then
            Da_cus_searh.SelectCommand.CommandText = "select *from [Customer]where [CustomerID]like'" & XpTextBox1.Text & "%'"
        Else
            MessageBox.Show("هذا الرقم غير موجود", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ConditionCriteria = False
            XpTextBox1.Focus()
        End If
        If ConditionCriteria = True Then
            Da_cus_searh.Fill(Datasearch1, "CustomerID")
        End If
        Try
            e_information()    'DatagridStyle 
            DataGrid1.DataSource = Datasearch1
            Me.DataGrid1.DataSource = Datasearch1.Tables(1)
            Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
        Catch ex As Exception
            MessageBox.Show("تأكد من ادخال البحث", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

كود استيل داتا جريد

 Sub e_information()
        DataGrid1.TableStyles.Clear()
        DataGrid1.CaptionText = "معلومات العملاء"
        Dim grdTableStyle1 As New DataGridTableStyle
        With grdTableStyle1
            .MappingName = Me.Datasearch1.Customer.TableName
        End With
        Dim grdColStyle1 As New DataGridTextBoxColumn
        With grdColStyle1
            .MappingName = "CustomerID"
            .HeaderText = "رقم العميل"
            .Width = 80
            .NullText = String.Empty
        End With
        Dim grdColStyle2 As New DataGridTextBoxColumn
        With grdColStyle2
            .MappingName = "CustomerName"
            .HeaderText = "أسم العميل"
            .Width = 150
            .NullText = String.Empty
        End With
        Dim grdColStyle3 As New DataGridTextBoxColumn
        With grdColStyle3
            .MappingName = "Phone"
            .HeaderText = "تليفون"
            .Width = 90
            .NullText = String.Empty
        End With
        Dim grdColStyle4 As New DataGridTextBoxColumn
        With grdColStyle4
            .MappingName = "Mobile"
            .HeaderText = "الموبيل"
            .Width = 80
            .NullText = String.Empty
        End With
        Dim grdColStyle5 As New DataGridTextBoxColumn
        With grdColStyle5
            .MappingName = "Fax"
            .HeaderText = "فاكس"
            .Width = 80
            .NullText = String.Empty
        End With
        Dim grdColStyle6 As New DataGridTextBoxColumn
        With grdColStyle6
            .MappingName = "Address"
            .HeaderText = "العنوان"
            .Width = 90
            .NullText = String.Empty
        End With
        Dim grdColStyle7 As New DataGridTextBoxColumn
        With grdColStyle7
            .MappingName = "City"
            .HeaderText = "المدينة"
            .Width = 90
            .NullText = String.Empty
        End With
        Dim grdColStyle8 As New DataGridTextBoxColumn
        With grdColStyle8
            .MappingName = "Country"
            .HeaderText = "البلد"
            .Width = 90
            .NullText = String.Empty
        End With
        Dim grdColStyle9 As New DataGridTextBoxColumn
        With grdColStyle9
            .MappingName = "Email"
            .HeaderText = "بريد اليكترونى"
            .Width = 120
            .NullText = String.Empty
        End With
        Dim grdColStyle10 As New DataGridTextBoxColumn
        With grdColStyle10
            .MappingName = "WebSite"
            .HeaderText = "موقع الانترنت"
            .Width = 120
            .NullText = String.Empty
        End With
        grdTableStyle1.GridColumnStyles.AddRange(New DataGridColumnStyle() {grdColStyle1, grdColStyle2, grdColStyle3, grdColStyle4, grdColStyle5, grdColStyle6, grdColStyle7, grdColStyle8, grdColStyle9, grdColStyle10})
        Me.DataGrid1.TableStyles.Add(grdTableStyle1)
    End Sub

اين الخطا هنا حتى يتم البحث وظهرو نتيجتة بالاستيل المطلوب

وشكرا لكم ,,,,,,,,,,,, :)