Private Sub LoadData()
 
        Me.OrdersTableAdapter.Fill(Me.NWINDDataSet.Orders)
 
        ' Liste der Cities
        Dim dataList = From r In Me.NWINDDataSet.Orders.AsEnumerable() _
                       Order By r.ShipCity _
                       Select r.ShipCity Distinct
 
        Me.ComboBox1.DataSource = dataList.ToList()
 
    End Sub
 
    ' Zeigen alle DatenSätze mit City = Auswahl
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim query = From o In Me.NWINDDataSet.Orders.AsEnumerable() Where _
        o.ShipCity = ComboBox1.Text Select o
 
        Me.OrdersDataGridView.DataSource = query.AsDataView()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist