Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As DataTable = New DataTable("table")
dt.Columns.Add("id", Type.GetType("System.Int32"))
dt.Columns.Add("name", Type.GetType("System.String"))
Dim dr As DataRow = dt.NewRow()
dr("id") = 1dr("name") = "john"
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("id") = 2dr("name") = "dan"
dt.Rows.Add(dr)
Dim filteredTable As DataTable = (From n In dt.AsEnumerable()
Where n.Field(Of Int32)("id") = 1Select n).CopyToDataTable()
ComboBox1.DataSource = filteredTable
ComboBox1.DisplayMember = "name"
ComboBox1.ValueMember = "id"
End Sub
End Class