DataTable с условием выборки как источник данных для Combobox

    Private Sub TextBox1_Validated(sender As Object, e As EventArgs) Handles TextBox1.Validated
        Dim strSelectText As String = "Pressure_for_search >= " & TextBox1.Text
        ComboBox1.DataSource = Form_Main.TestDataTable.Select(strSelectText)
        ComboBox1.DisplayMember = "Main_tube_type"
    End Sub

Dim strSelectText As String = "Pressure_for_search >= '" & TextBox1.Text.ToString & "'"

Public Class FormDebug
    Dim DataTableTest As New Data.DataTable
    Private Sub FormDebug_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataTableTest = Form_Main.DTCombobox40
        ComboBox1.DataSource = DataTableTest
        ComboBox1.DisplayMember = "Main_tube_type"
    End Sub
 
    Private Sub TextBox1_Validated(sender As Object, e As EventArgs) Handles TextBox1.Validated
        If TextBox1.Text <> "" Then
            ComboBox1.DataSource = DataTableTest.Select("Pressure_for_search >= '" & TextBox1.Text & "'")
            ComboBox1.DisplayMember = "Main_tube_type"
        End If
    End Sub
End Class

Dim rows=MyTable.Select("ID=3")

            ComboBox1.DataSource = Massiv
            ComboBox1.DisplayMember = ???????

Combobox1.datasourse=DataTable
Combobox1.DisplayMember = "Main_tube_type"

Dim rows() As DataRow = DataTableTest.Select("Pressure_for_search > 50")
 Dim lst = (From f In rows Select f.Item("Main_tube_type")).ToList
 ComboBox1.DataSource = lst

    
    Private DT As DataTable = New DataTable
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DT.Columns.Add(New DataColumn() With {.ColumnName = "Main_tube_type"})
        DT.Columns.Add(New DataColumn() With {.ColumnName = "Pressure_for_search"})
        For i = 1 To 15
            DT.Rows.Add({"Текст" & i, 10 * i})
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim DTS As New DataTable
        DTS = DT.Copy
        DTS.DefaultView.RowFilter = "(Convert([Pressure_for_search],System.String) >= 50)"
        DTS = DTS.DefaultView.ToTable
        Dim str As String = Nothing
        For Each r In DTS.Rows
            str += r("Main_tube_type") & vbTab & r("Pressure_for_search") & vbCrLf
        Next
        MsgBox(str)
    End Sub

        ComboBox1.DataSource = DTS
        ComboBox1.DisplayMember = "Main_tube_type"

(Convert([Pressure_for_search],System.String)

    Sub FillCB()
    Sub FillCB()
        If TextBox1.Text <> "" Then
            Dim DataTableTest As New Data.DataTable
        DataTableTest = Form_Main.DTCombobox40
        Dim strSelectComand As String = "Pressure_for_search >= " & TextBox1.Text
            DataTableTest.DefaultView.RowFilter = "(Convert([Pressure_for_search],System.String) >= " & TextBox1.Text & " AND Convert([Main_tube],System.String) = '" & ComboBox2.Text & "')"
            DataTableTest = DataTableTest.DefaultView.ToTable
            ComboBox1.DataSource = DataTableTest
            ComboBox1.DisplayMember = "Main_tube_type"
        End If
    End Sub
    End Sub