Как фильтровать datagridview с помощью VB.NET а госпожа Аксес?

---

Я новичок в программировании и просто изучаю Программирование, просматривая обучающие видео и читая статьи. Я искал это, но не смог найти. Как Новичок, как я, мы действительно ценим любую помощь от такого эксперта, как вы, ребята.

Я создал форму и использую datagridview, куда идут мои данные базы данных, и я могу искать с помощью текстового поля и кнопки, которую я создал. Но я хочу поставить фильтр на него, чтобы, если пользователь хочет искать ИТ-персонал из Японии , он выбирал страну в первом выпадающем списке и Японию во 2-м выпадающем списке 2. теперь он хочет искать ИТ-персонал из Японии, чей статус нанят, поэтому он вводит нанятый во втором текстовом поле, и таблица данных показывает ИТ-персонал из Японии, чей статус нанят.

Это мой стол.

Position       Country          Status

IT Staff        Japan            Hired
Teacher        Germany           Not Hired
IT Staff        Mexico           Hired

когда я набираю в своем текстовом поле "нанят" в моем Datagridview показывает

IT Staff          Japan            Hired
IT Staff          Mexico           Hired

Я только хочу показать в своем datagridview весь ИТ-персонал в Японии, который нанят.

Что я уже пробовал:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      If ComboBox1.Text = "Country" Then
          If ComboBox2.Text = "Japan" Then
              Status()
          End If
      End If
  End Sub

Public Sub Status()
      Try
          Dim sCon As String = String.Format("Provider= Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb")
          Dim str As String = "SELECT * FROM dbtable WHERE Status = @S"
          Dim dt As New DataTable

          Using con1 As OleDbConnection = New OleDbConnection(sCon)
              con1.Open()
              Using cmd1 As OleDbCommand = New OleDbCommand(str, con1)
                  With cmd1.Parameters
                      .Add("@S", OleDbType.VarChar).Value = TextBox1.Text
                  End With
                  Dim adp As New OleDbDataAdapter(cmd1)
                  adp.Fill(dt)
                  DataGridView1.DataSource = dt
              End Using
              con1.Close()
          End Using
      Catch ex As Exception
          MsgBox(ex.Message)
      End Try
  End Sub

---