Try something like:
Using con As New SqlConnection(strConnect)
con.Open()
Using cmd As New SqlCommand("SELECT ID, Description FROM myTable", con)
Using reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
Dim rowID As Integer = CInt(reader("ID"))
Dim rowDesc As String = reader("Description").ToString()
Console.WriteLine($"ID: {rowID}, {rowDesc}")
End While
End Using
End Using
End Using