主题：请问如何屏蔽access数据库无查找项时的错误

....
dt = cmd.ExecuteReader
If dt.datarows.Count > 0 Then
    dr = dt.DataRows(0)
    If e.Form.Controls("PassWord").Value = dr("Password") Then
        _UserName = UserName
        _UserGroup = dr("Group")
        e.Form.Close
        Forms("地接").Open()
    Else
        Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If