主题：出现超出数组范围提示怎么回事？

cmd.CommandText = "Select * From {用户} Where [登录名] = '" & Name & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)

改为：

cmd.CommandText = "Select * From {用户} Where [登录名] = '" & Name & "'"
dt = cmd.ExecuteReader
if  dt.Datarows.Count = 0 then

    Messagebox.show("用户名错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    return

End if

dr = dt.DataRows(0)