[mrnooo2000]

بالتأكيد يمكن اختصاره بطرق كثيرة 
مثلا أنت لا تحتاج الى جدول 
بل يمكنك ادراج القيمة مباشرة الى الداتا جريد 

لاحظ هذا هو كود الجزء الاول من كودك بعد تعديله 

كود :

           connDB.Open()
           DataGridView1.ColumnCount = 2
           DataGridView1.Columns(0).Name = "ذكور"
           DataGridView1.Columns(1).Name = "إناث"
           Dim cmd As New OleDbCommand("SELECT count(*) from Etudiants WHERE Sexe = '1' OR Sexe = 'M' OR Sexe = 'ذ'", connDB)
           DataGridView1.Rows(0).Cells(0).Value = cmd.ExecuteScalar
           cmd = New OleDbCommand("SELECT count(*) from Etudiants WHERE Sexe = '2' OR Sexe = 'F' OR Sexe = 'أ'", connDB)
           DataGridView1.Rows(0).Cells(1).Value = cmd.ExecuteScalar
           connDB.Close()

و هذه طريقة أخرى ربما تكون أكثر اختصارا و لكن ستعطى النتائج بشكل أفقى 

كود :

       DataGridView1.ColumnHeadersVisible = False
       DataGridView1.AllowUserToAddRows = False
       Dim dt As New DataTable
   Dim adp As New OleDbDataAdapter("SELECT count(*) as idcount,'ذكور' as idtext from Etudiants WHERE Sexe = '1' OR Sexe = 'M' OR Sexe = 'ذ' _
                                            union all SELECT count(*) as idcount,'إناث' as idtext from Etudiants WHERE Sexe = '2' OR Sexe = 'F' OR Sexe = 'أ'"", connDB)
       adp.Fill(dt)
       DataGridView1.DataSource = dt

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