数据库重复加载问题

          学生信息管理系统做完了，但是在运行的时候，出现了很多错误。当程序运行到设置课程的时候，出现了重复加载的问题，就是当你点击设置课程或加载按钮时，课程内容会重复添加，结果如下图：

          这两个问题其实是一个问题，就是没有判断文本框是否已经添加课程。第一个问题简单一点，因为只添加一次，先来解决这个问题。要解决这个问题，我们使用了列表框的listcount属性，这个属性刚好是记录列表框中记录的属性，如果等于0，则没有记录，如果不为0，则表示已经添加了课程。代码如下：

Private Sub cmdSet_Click()             
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
                                               
    listAllcourse.Enabled = True
    listSe