Заполнение Combobox из базы данных по условию

...
            strTabName = "Flange_pressure_rating_tb"
            strDisMem = "Flange_pressure_rating_type"
            strValMem = "Flange_pressure_rating_key"
            Call ModuleFillCombobox.Fill_combobox4_6(strTabName, strDisMem, strValMem)
...
 
    Sub Fill_combobox4_6(strTabName, strDisMem, strValMem)
        Dim ConDataBase As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Dropbox\Database1.accdb; Persist Security Info=False")
        Dim dblPressureSearch As Double
        If Form_Main.TextBox7.Text = Nothing Then
            dblPressureSearch = 0
        Else
            dblPressureSearch = Form_Main.TextBox7.Text
        End If
 
        DTCombobox_4_6.Clear() ' Очистка
        SqlComDataBase = New OleDb.OleDbCommand("SELECT * FROM " & strTabName, ConDataBase)
        ConDataBase.Open()
        SqlComDataBase.ExecuteNonQuery()
        DACombobox_4_6 = New OleDb.OleDbDataAdapter(SqlComDataBase)
        DACombobox_4_6.Fill(DTCombobox_4_6)
        ConDataBase.Close()
 
        With Form_Main.ComboBox6
            .DataSource = DTCombobox_4_6
            .DisplayMember = strDisMem
            .ValueMember = strValMem
        End With
    End Sub