学生信息管系统照着代码敲，敲完了后，漏洞百出，最初碰到的就是下面的这个提示框
而当这个提示出现时，点击调试按钮返回
<span style="font-size:18px;">If mrc.EOF = True Then</span>VB中出现问题最快捷的方式就是去MSDN for VB上查找相关的信息，装上MSDN出现问题的时候，点击帮助。
由图可知，错误类型是对象变量或者With块变量未设置，而此处没有With块变量，那么只能是一种情况，对象变量未设置。此处的对象只有mrc 前面定义的一个Recordset记录集，这个问题原因是没有连上数据库，导致后面的Recordset对象的EOF和BOF属性无效。
而没有连上数据库的原因有很多，最常见的是下面的3种。
<span style="font-size:18px;">'以文件DSN标记，访问ODBC数据源 </span><pre name="code" class="vb"><span style="font-size:18px;">Public Function ConnectString() As String '这个函数是用来连接数据库</span><pre name="code" class="vb"><span style="font-size:18px;"><span style="white-space:pre"> </span>ConnectString = "FileDSN=student.dsn;UID=sa;PWD=fxq"</span>
<span style="font-size:18px;">End Function</span>FileDSN后面的Student必须是配置ODBC的时候，DSN文件的名字。UID是SQL Server 软件登录的账号，PWD是SQL Server 登录的密码。必须跟自己电脑上一致。
<span style="font-size:18px;">txtSQL = "select * from course_Info where course_No = ' " & Trim(txtCourseno.Text) & " '" 'SQL语句</span>SQL语句的结构，从外向内，分别是双引号，单引号，双引号，还有&连接符。该语句的意义是：从Course_Info 表中选择课程编号的内容，让他等于txtCourseno 这个输入框的内容，一定要在理解该语句的基础上，进行编写，这样才能避免很多粗心和不理解代码犯下的最不易察觉的低级错误。
【学生信息管理系统】对象变量或者With块变量未设置,布布扣,bubuko.com
原文地址：http://blog.csdn.net/fxq8866/article/details/38562919
