Try this:
Using con As New SqlConnection(strConnect)
con.Open()
Using com As New SqlCommand("SELECT fname FROM xyz", con)
Using reader As SqlDataReader = com.ExecuteReader()
While reader.Read()
Dim fname As String = DirectCast(reader("fname"), String)
Console.WriteLine(fname)
End While
End Using
End Using
End Using