Combobox не будет обновляться должным образом, как это исправить? Vb.net

---

Я добавляю данные в свой combobox, но иногда отображаемые данные не отображаются(или обновляются для отображения в моем combobox). Я должен добавить еще одни данные для отображения предыдущих введенных данных. Как я могу полностью обновить это?

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

Private Sub BtnBlood_Click(sender As Object, e As EventArgs) Handles BtnBlood.Click
       If ComboBlood.Text = "" Then
           MsgBox("Please Input a Value first")
           Exit Sub
       End If
       Try
           Bloodforbtn()
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try
   End Sub
   Private Sub Bloodforbtn()

       If MessageBox.Show("Are you sure you want to add this?" & vbNewLine & "[Blood Type]:  " & ComboBlood.Text, "Saving data", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
           Dim connString As New OleDbConnection("Provider= Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB_HR.accdb;Jet OLEDB:DATABASE PASSWORD=dbhr123;")
           connString.Open()

           Dim da As New OleDbDataAdapter()
           Dim dt As New DataTable()

           Dim str As String
           str = "Insert Into tblBloodtype([Bloodtype]) Values (?)"
           Dim cmd As New OleDbCommand(str, connString)

           cmd.Parameters.Add(New OleDbParameter("Bloodtype", CType(ComboBlood.Text, String)))

           cmd.ExecuteNonQuery()
           cmd.Dispose()

           MessageBox.Show(ComboBlood.Text + " was added")
           'ComboBlood.Text = ""
           'DISPLAY THE DATA
           da.SelectCommand = New OleDbCommand("Select * from tblBloodtype", myConnection)
           da.Fill(dt)
           ComboBlood.DataSource = dt
           ComboBlood.DisplayMember = "Bloodtype"
           connString.Close()

       Else
           Exit Sub
       End If
       ComboBlood.Text = ""
   End Sub

---