[aftfm]

الف شكر اخي العزيز على اجابتك تم الاستفاده منها والحمد لله


   

كود :

  CType(DataGridView1.DataSource, DataTable).Rows.Add(New Object() {})
        For i = 0 To DataGridView1.Columns.Count - 1
            If i < 10 Then
                DataGridView1.Rows(0).Cells(i).Value = "0" & i
            Else
                DataGridView1.Rows(0).Cells(i).Value = i
            End If
        Next

وضعت هذا الكود 
اعطاني السجل الاول بشكل ممتاز يبقى السجل الثاني والثالث الخ

ولكن بهذه الشكل كما في الصورة المرفقة