以下这里有错误：
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的赤壁网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"
修改为：
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"
你说得真能把人搞晕。
你总能得到用户名吧，然后拿用户名和旧口令再去调用一下验证口令哪块代码看成功没有不就好了。
登陆以后应该把用户信息放到Session里面。然后就可以得到了啊。实在不会至少可以使用隐藏Text，把用户名输出到用户的页面上，提交的时候一并带上来就好了。
你可以debug将sql语句截出来放到数据里运行一下试试sql语句有没有问题
再有将ds1.Tables.Item(0)改为ds.Tables[0]试试
