未发现可创建的公共类部件

本人初学VB，想尝试修改一小段连接数据库程序运行，但出现“未发现可创建的公共类部件”提示，不知如何解决，下面是代码，希望有人指教
Private Sub Command1_Click()

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'连接数据库
conn.Open "dsn=htt_ODBC"
'打开数据源（即选定操作的数据对象）
rs.Open "select * from 刀具库存台帐 ", conn

MSFlexGrid1.TextMatrix(0, 0) = "姓名"
  MSFlexGrid1.TextMatrix(0, 1) = "性别"
  MSFlexGrid1.TextMatrix(0, 2) = "语文"
  MSFlexGrid1.TextMatrix(0, 3) = "数学"
  MSFlexGrid1.TextMatrix(0, 4) = "英语"
  '注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值
  rs.MoveLast
  MSFlexGrid1.Rows = rs.RecordCount + 1
  MSFlexGrid1.Cols = rs.Fields.Count
  Dim i%
  i = 1
  rs.MoveFirst
  Do While (Not rs.EOF)
    MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)
    MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)
    MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)
    MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)
    MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)



    rs.MoveNext

    i = i + 1
  Loop

End Sub

数据库 --------------------编程问答-------------------- conn.Open "dsn=htt_ODBC"好色部分应该是错误的，你可以创建一个数据库工程，然后，窗口中添加一个adodc控件，点击connctionstring属性，安装向导帮你设置好连接字串，然后测试成功后，拷贝出来 --------------------编程问答-------------------- 在“工程”－》“引用”菜单里面引用一下“Microsoft ActiveX Data Objects 2.8 Library” --------------------编程问答-------------------- 可以显示了，但运行时出现下标越界的问题。这可能是什么问题 --------------------编程问答-------------------- MSFlexGrid1.Cols = rs.Fields.Count+1

补充：VB ,  数据库(包含打印，安装，报表)