ちなみに俺だったら

Dim dr() As Data.DataRow
Dim dr As Data.DataRow

こう書くな。紛らわしいから。