[elgokr]

تعال على هذا الكود فى الفوم 8 لديك

كود :

   Sub load_date()


       Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)

       cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
       Dim adapter1 As New OleDbDataAdapter(cmd)
       Dim table As New DataTable
       adapter1.Fill(table)

   End Sub

استبدله بهذا الكود

كود :

   Function load_date()
       Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
       cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
       Dim adapter1 As New OleDbDataAdapter(cmd)
       Dim table As New DataTable
       adapter1.Fill(table)
       Return table
   End Function

تعال ايضاً على هذا الكود فى الفورم 8

كود :

       load_date()
       DataGridView1.DataSource = table

استبدله بهذا الكود

كود :

       DataGridView1.DataSource = load_date()
       DataGridView1.Refresh()

الان يمكنك اختبار البرنامج

ستجد انه يعمل معك بدون اى مشكلة

النتيجة

تحياتى لك

وتمنياتى لك التوفيق