Обновление combobox после вставки значения

Question

Я хочу обновить Combobox после вставки значения, которое идет прямо в Combobox. Возможно, мне нужно сделать запрос, и я уже получил его. То есть код, который я получил на данный момент

Private Sub UpdateComboBox() 
    SQLCon = New SqlConnection 
    SQLCon.ConnectionString = "...." 
    Try 
     SQLCon.Open() 
     Dim Query As String 
     Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
     SqlCmd = New SqlCommand(Query, SQLCon) 
     SQLDataReader = SqlCmd.ExecuteReader 
     ComboBox1.DataSource = ComboBox1.Items.Add(Query) 
     SQLCon.Close() 
    Catch ex As SqlException 
     MsgBox(ex.Message) 
    Finally 
     SQLCon.Dispose() 
    End Try 
End Sub 

и хочу добавить этот метод в данный момент после вставки чего-то.

Этот код в виде

SQLCon = New SqlConnection 
     SQLCon.ConnectionString = "......" 
     Try 
      SQLCon.Open() 
      Dim Query As String 
      Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
      SqlCmd = New SqlCommand(Query, SQLCon) 
      SQLDataReader = SqlCmd.ExecuteReader 
      While SQLDataReader.Read 
       Dim fileType = SQLDataReader.GetString(0) 
       DataGridView1.DataSource = ComboBox1.Items.Add(fileType) 
      End While 
      SQLCon.Close() 
     Catch ex As SqlException 
      MsgBox(ex.Message) 
     Finally 
      SQLCon.Dispose() 
     End Try 

Answer 1

Попробуйте это:

Private Sub UpdateComboBox() 
    SQLCon = New SqlConnection 
    SQLCon.ConnectionString = "....." 
    Try 
     SQLCon.Open() 
     Dim Query As String 
     Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
     SqlCmd = New SqlCommand(Query, SQLCon) 
     Dim adapter As New SqlDataAdapter(SqlCmd) 
     Dim table As New DataTable 
     adapter.Fill(table) 
     ComboBox1.DataSource = table 
     ComboBox1.DisplayMember = "Filetype" 
     SQLCon.Close() 
     Return table 
    Catch ex As SqlException 
     MsgBox(ex.Message) 
    Finally 
     SQLCon.Dispose() 
    End Try 
End Sub