自己到学生的时候刚开始也是不太敢下手，因为感觉前边的东西学的不是很扎实，就怕地基打得不好到后边越来越高突然坍塌咯，就暂停了一段时间来看前边的知识。但是到了学生之后还是觉得哪里没有学到似的，大脑很空。
刚开始敲学生系统的时候，其实自己也不知道该怎么敲，完全没有思路。不过后来自己慢慢的摸索着 找到了一些思路，但其间还是遇到了许多坎坷，下面就来说一下我都遇到了哪些问题吧。
这个问题很典型，相应的对象没有在数据库中取得相应的值，数据连接不通。
数据库连接失败的一些原因：1.服务管理器没有启动好
2.数据源（odbc)没有配置好
3.在代码里“select *from "这后面应该接的是表的名字，而不是数据库名
4.Connect string里面的用户名或者密码错误executesql()这个函数运行的过程中会触发Connectstring()相当于数据库连接时必须出发的一个事件，里面的字符串必须正确，否则直接影响到数据库的连接
5.最后就是自己的代码是否正确
不过我出现这个错误大多都是代码错误。
combox控件修改成不能输入，在其属性style里边修改为dropdown list
这个问题检查起来真的是相当麻烦，我们四个人找了一天才解决完，是真的心累。
解决办法：查找自己的模板里面定义的代码是否与模块里定义的代码有冲突。我的就是因为模块里面有dim username as string 而登陆窗体模块里面也有，所以就导致后面的username不能得到数据，造成即使密码正确也报出错误，大家以后注意不要随意定义，否则会造成程序混乱。
这个问题是，他可以运行，也不会报错，就是最后一条记录删除之后在打开还是会有。
我最后的解决办法就是在删除控件里面加上代码
If mrc.RecordCount = 1 Then
MsgBox "课程不能为空", vbOKOnly + vbExclamation, "警告"
cmddelete.Enabled = False
Else
cmddelete.Enabled = True
这个是因为定义txtsql 和msgtext 后边没有加
txtSQL = "select * from gradecourse_info where grade= '" & Trim(Combograde.Text) & "'"
Set mrc = executesql(txtSQL, Msgtext)
今后一定得及时记录问题