Dim dsDaten as NEW Dataset
Dim dtDaten as Datatable
Dim dvDaten as Dataview
Dim AnzahlRows as Integer       
 
        strSQL = "SELECT * FROM Daten"
        Dim sdaDatenAs New SqlDataAdapter(strSQL, scnConnection)
        sdaDaten.Fill(dsDaten, "MyTable")
        dtDaten = dsDaten.Tables("MyTable")
        dvDaten = dtDaten.DefaultView
        dvDaten.RowFilter = "ID = 5"
 
         AnzahlRows = dvDaten.Count

Ciao

J?rgen

PS: geht nicht gibt's nicht