I'm about two days in to using .Net and I'm trying to convert an existing application over. I'm the first to admit I'm fumbling around using old concepts in a new environment but anyway:

I'm connecting to a SQL 2005 database, extracing some data, and want to do that again in the same sub. In the code below the first select works. In the second the objDataReader.HasRows is true but the loop doesn't kick in. I'm assuming I'm at the end of file from the first loop. I tried by old RecordSet processing (closing and opening) and a few other things.

What do I need to do to clean up the last query and do a second? I'm using the same select because I know it brings back data from the first step.

Code:
Private Sub TestIt()

        Dim sConnection As String = "Server=devsql.corp.compmgt.com\image1;Database=eDocs;Trusted_Connection=Yes"
        Dim objCommand As New SqlCommand

        objCommand.CommandText = "Select ParmString from refParm where ParmDesc = 'Citrix Image Import " & _
                                Me.cboDocClass.Text & "'"

        objCommand.Connection = New SqlConnection(sConnection)
        objCommand.Connection.Open()

        Dim objDataReader As SqlDataReader = objCommand.ExecuteReader()

        If objDataReader.HasRows Then
            Do While objDataReader.Read()
                gvSourceFolder = objDataReader("ParmString").ToString()
            Loop
        Else
            MsgBox("Failed")
        End If

        '<===== I'm stuck here 

        objDataReader.Close() '<=== Doesn't work

        objCommand.CommandText = "Select ParmString from refParm where ParmDesc = 'Citrix Image Import " & _
                                Me.cboDocClass.Text & "'"

        If objDataReader.HasRows Then
            Do While objDataReader.Read()
                gvSourceFolder = objDataReader("ParmString").ToString()
            Loop
        Else
            MsgBox("Failed")
        End If

    End Sub