[عبد العزيز البسكري]

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Call Sondoss_Connection()
       Dim InfoCommand As OleDbCommand = New OleDbCommand("SELECT * From TBL_STUDENT Order By STUDENT_Id", Conne_2020)
       Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter()
       InfoAdapter.SelectCommand = InfoCommand
       Dim InfoTable As DataTable = New DataTable()
       InfoAdapter.Fill(InfoTable)

       DataGridView1.DataSource = InfoTable
       DataGridView2.DataSource = InfoTable
       DataGridView3.DataSource = InfoTable
       DataGridView4.DataSource = InfoTable

   End Sub