SqlDataReader,Read中のコネクション管理について

        Using cn As New SqlClient.SqlConnection(strConn), _
                cmd As New SqlClient.SqlCommand
             
            cn.Open()
            cmd.Connection = cn
             
            cmd.CommandText = "SELECT ID FROM テーブルA"
            dr = cmd.ExecuteReader
            
            Do While dr.Read
             UPDATET(ID)　★
            Loop
        End Using
        
        Private Sub UPDATET(byval ID as integer)
                cn2,cmdを準備して・・・。
        	cmd2.CommandText ="UPDATE TableT SET ・・・・"←cn2,cmd2を利用
        	cmd2.ExecuteNonQuery()
        
        End sub