很明显,你没有声明RS和CON这两个对象
先引用 : Microsoft Activex Data Objects 2.1 Library .在“工具”-->“引用”,打开引用对话框
然后在代码最前面(最上面,不在任何事件下)写上这两句话
Dim CON As New ADODB.Connection
Dim rs As New ADODB.Recordset
Userpwd = MD5(Trim(txtPassword.Text))
MD5函数是哪里来的?如果是外部的DLL,需要在工程(模块)里做函数声明。
有数据库的访问,需要在工程里引用数据库控件。工程-引用,选择“Microsoft ActiveX Data Objects 2.0 Library”
有数据库、有MD5函数、有文件输入输出,你没凑齐所有的东西,能运行起来才怪。特别是数据库,兼容问题很麻烦。
再有,百度这里发帖不能自定义文字颜色。看不到你说的红色字....
可以做到,等我写好了给你。