Вот пример без данных, как упомянуто в вашем комментарии.
Dim reader As SqlDataReader= MyCommand.ExecuteReader
Dim MyList as new List(Of WhateverObject)
Do While reader.Read
Dim obj as new WhateverObj
obj.Property1 = Reader.GetInt32(0)
obj.Property2 = Reader.GetString(1)
MyList.add(obj)
Loop
reader.Close()
myCommand.Dispose()
Ради полного ответа, соответствующего названию, с набором данных:
Dim Adapter As New SqlDataAdapter(myCommand)
Dim ds As DataSet = New DataSet
Adapter.Fill(ds)
Datatable:
Dim resultTable as DataTable = ds.Tables(0)