Reading And Writing To Same Table

I need to select all the records in a table, loop through them one by one, calculating some new field data, and then write the new data back to the same table. Here is the basic structure of what I've come up with:
<CODE>
SqlCmd = SqlConn.CreateCommand

SqlStatement = "SELECT ProductID, Name FROM tblProducts"
SqlCmd.CommandText = SqlStatement

SqlRdr = SqlCmd.ExecuteReader

If SqlRdr.HasRows Then
  While SqlRdr.Read
    If SqlRdr.FieldCount > 0 Then
      ...

      SqlWriteCmd = SqlConn.CreateCommand

      SqlStatement = "UPDATE tblProducts SET Name = '" & NewName & "' WHERE ProductID = " & CStr(ProductID)
      SqlWriteCmd.CommandText = SqlStatement

      SqlWriteCmd.ExecuteNonQuery()

      SqlWriteCmd = Nothing
    End If
  End While
End If

SqlRdr.Close()

SqlCmd = Nothing

</CODE>
I get an error that tells me to close out the Reader before trying to execute the write query. But I can't close it out for the loop to work properly. So I assume that there must be another way to do this simple task, but I'm so new to all of this that I need some help! Thanks!