这个原因是你建立对象的时候没有使用new关键字或者指向对象 dim a as new internet 或者 dim a as internet 后用 set a=new internet
你上面提供的代码都没问题，不过我没有看见你绑定数据库的语句或者你是否在设计时进行了正确的设置。 上述问题的原因可能是Adodc1。Recordset 绑定的数据库连接不正确，无法打开记录集（或数据库表）所致，当Adodc1。Recordset数据绑定不正确时，Adodc1。
Recordset对象返回Nothing，这样对象就不存在，所以无法执行Find方法及后续操作。 你可以在With语句前加上一句测试的代码： If not Adodc1。Recordset。EOF Then With Adodc1。
Recordset 。Find "用户名='" & CurrentUserName & "'" 。Fields("密码") = Trim(txtNewPWD(0)) 。Update End With Else Msgbox "数据库绑定错误！" Exit Sub End If 如有其他问题再和我联系。
。
答：程序不全无法判断，附上程序或者说明SelectSQL、msg为何物、ADO Connect的全过程。详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
