代码没问题的。
出错,说明返回的dt没有任何数据,判断一下
If dt.DataRows.Count > 0 Then
Dim dr As DataRow =dt.DataRows(0)
End If