请教vb连接access的问题

问题描述：
在下想制作一个界面，用于连接access，模仿书中实例，
首先，工程\引用，勾选microsoft Active Data Object2.5，再添加部件MSHFlexGrid，然后制作窗体，编写代码如下，运行没有问题；
Private Sub Form_Load()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\工程资料数据库.MDB"
  rs.Open "信息表", cn, adOpenKeyset, adLockOptimistic
  Set MSHFlexGrid1.DataSource = rs
  MSHFlexGrid1.ColWidth(0) = 300
End Sub

然后，关闭再打开，就提示“用户类型未定义”，错误指向‘Dim cn As ADODB.Connection’，控件MSHFlexGrid1也失效了，日志文件中出现“行 21: 控件 MSHFlexGrid1 的类 MSHierarchicalFlexGridLib.MSHFlexGrid 不是一个已加载的控件类。”
最后只好再按照“工程\引用，勾选microsoft Active Data Object2.5，再添加部件MSHFlexGrid”操作一遍就又可以运行了，难道每次打开都要重新加载控件类？还望高人指教，谢谢！

--------------------编程问答-------------------- 先引用ADO --------------------编程问答-------------------- 可以新建数据工程会引用ADO的,再使用控件和上述代码. --------------------编程问答-------------------- 你的窗口文件保存了，但是你的工程文件没有保存，就会造成这个问题 --------------------编程问答--------------------

引用 1 楼 leftie 的回复:

先引用ADO

ADO我已经引用了，可是每次关闭vb后再打开都需要重新引用ADO，应该不用这么麻烦吧？

补充：VB ,  基础类