Dim query =
                               From order In quyGeb _
                     Where (order("Budgetjahr").ToString.StartsWith( _
                     tbxFilterBudgetjahr.Text) _
                    AndAlso order("Gebäudenummer").ToString.StartsWith( _
                    tbxFilterGebäude.Text) _
                    AndAlso order("Projektnummer").ToString.ToUpper.Contains( _
                    UCase(tbxFilterProjektNummer.Text)) _
                    AndAlso order("Projekttyp").ToString.ToUpper.Contains(UCase( _
                    tbxFilterProjekttyp.Text)) _
                    AndAlso order( _
                    "Projektkategorie").ToString.ToUpper.StartsWith(UCase( _
                    tbxFilterKategorie.Text)) _
                    AndAlso order("Status").ToString & VERGLEICHSVARIABLE _
                    der Combobox & tbxFilterProjektstatus.Text _
                    AndAlso order( _
                    "Projektbezeichnung").ToString.ToUpper.Contains(UCase( _
                    tbxFilterBezeichnung.Text)) _
                    AndAlso order("Projektleiter").ToString.ToUpper.Contains( _
                    UCase(tbxFilterPLeiter.Text)) _
                    AndAlso order("Projektkostenstelle") IsNot DBNull.Value _
                    AndAlso CStr(order("Projektkostenstelle")).Contains( _
                    tbxFilterKostenstelle.Text) _
                    AndAlso order("Anlagedatum") >= dtpFilterBeginn.Value _
                    AndAlso order("Projektende") <= dtpFilterEnde.Value)
 
 
 
                    If query.Count > 0 Then
                        dgvProjektübersicht2.DataSource = Nothing
                        dgvProjektübersicht2.DataSource = query.CopyToDataTable
                    Else
                        dgvProjektübersicht2.DataSource = Nothing
                    End If
 
            End Select