不断select或者find就行啊。
Dim dr1 As Datarow = DataTables().Find()
If dr1 IsNot Nothing Then
Dim dr2 As Datarow = DataTables().Find()
End If