Try
                da1.FillSchema(ds, SchemaType.Source, "Orders")
                da1.Fill(ds, "Orders")
            Catch ex As System.Exception
                MsgBox("DB read failed: " + ex.ToString())
                Return
            End Try
 
            Dim ei As Integer = 3
            Dim sc As String = "Paris"
 
            dt1 = ds.Tables("Orders")
            dv1 = New DataView(dt1, "EmployeeID=" & ei & " And ShipCity='" & sc _
              & "'", "OrderDate", DataViewRowState.CurrentRows)
            DataGrid1.DataSource = dv1

________
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