[حريف برمجة]

استبدل هذا الكود بالموجود معك في البرنامج ....

كود :

Public Sub searching()
        Dim _SQL As String =
        " SELECT COUNT(*) AS total, Nationalities.NationalitiesCaption, Depet.Depets, Qualifications.QualiCaption " &
        " FROM (((Depet INNER JOIN " &
        "         Employees ON Depet.DepetID = Employees.Depets) INNER JOIN " &
        "         Nationalities ON Employees.EmpNatio = Nationalities.NationalitiesID) INNER JOIN " &
        "         Qualifications ON Employees.EmpConfig = Qualifications.QualiDI) " &
        " GROUP BY Nationalities.NationalitiesCaption, Qualifications.QualiCaption, Depet.Depets "
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(_SQL, con)
        da.SelectCommand.Parameters.AddWithValue("?EmpNatio", ComboBox1.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?EmpConfig", ComboBox2.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?Depets", ComboBox3.SelectedValue)

        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub