为了彩票，我编来个双色球数据库（DAO），其实基本上是抄书，一运行，第一行就被提示错误：
“自定义数据未被定义”很痛苦，不知道错在哪？求教高手指点。先谢过了！码复制如下：
    Dim ss As Database
  Dim hl As Recordset
Private Function showtext()
  Text1.Text = hl.Fields("序号")
  Text2.Text = hl.Fields("公号")
  Text3.Text = hl.Fields("日期")
  Text4.Text = hl.Fields("h1")
  Text5.Text = hl.Fields("h2")
  Text6.Text = hl.Fields("h3")
  Text7.Text = hl.Fields("h4")
  Text8.Text = hl.Fields("h5")
  Text9.Text = hl.Fields("h3")
  Text10.Text = hl.Fields("lan")
End Function


Private Sub Command2_Click()
  hl.Edit
  hl.Fields("序号") = Text1.Text
  hl.Fields("公号") = Text2.Text
  hl.Fields("日期") = Text3.Text
  hl.Fields("h1") = Text4.Text
  hl.Fields("h2") = Text5.Text
  hl.Fields("h3") = Text6.Text
  hl.Fields("h4") = Text7.Text
  hl.Fields("h5") = Text8.Text
  hl.Fields("h6") = Text9.Text
  hl.Fields("lan") = Text10.Text
  hl.Update
  MsgBox "修改数据成功！"
End Sub

Private Sub Command3_Click()
  hl.MoveNext
  If hl.EOF Then
     MsgBox "已到最后一个记录"
  Else
     Call showtext
  End If
End Sub

Private Sub Command4_Click()
  hl.selete
  MsgBox "删除数据成功！"
End Sub

Private Sub Command5_Click()
  hl.MoveFirst
  Call showtext
End Sub

Private Sub Command6_Click()
  hl.MovePrevious
  If hl.BOF Then
     MsgBox "以到第一个记录"
  Else
     Call showtext
  End If
  
End Sub

Private Sub Command7_Click()
  hl.MoveLast
  Call showtext
End Sub

Private Sub Form_Load()
  Set ss = OpenDatabase("f:/双色库.mdb")
  Set hl = 双色库.OpenRecordset("hl")
  Call showtext
End Sub
Private Sub Command1_Click()
  hl.AddNew
  hl.Fields("序号") = Text1.Text
  hl.Fields("公号") = Text2.Text
  hl.Fields("日期") = Text3.Text
  hl.Fields("h1") = Text4.Text
  hl.Fields("h2") = Text5.Text
  hl.Fields("h3") = Text6.Text
  hl.Fields("h4") = Text7.Text
  hl.Fields("h5") = Text8.Text
  hl.Fields("h6") = Text9.Text
  hl.Fields("lan") = Text10.Text
  hl.Update
  MsgBox "增加数据成功！"
End Sub

提示的错误为“用户定义类型未被定义”特此更正。

Database 是什么东西，这个没见过。是不是一个自定义类？？

  Dim hl As Recordset
引用。
你工程里没有引用 ADO 的任何一个库。

---------------------------
或者说，这个工程是别人写的，你把 主代码都拿过来了，但是没有拿到 CLS 类的代码，而这 二个都是这个类里定义二种类。
找找吧。

对不起，我写错了。是DAO不是ADO。能不能告诉我。怎么找CLS类的代码？不管怎么样，豁亮很多。
真心感谢！

DAO做数据库已经不流行了，access97之前很多，估计不能支持后来的数据库。在工程里引用microsoft dao 3.6 object library应该可以解决。

[ 本帖最后由 xzlxzlxzl 于 2014-12-26 18:52 编辑 ]

感谢版主指点，非常的感谢，我以为添加一个cls类模块做相应的声明可以解决。当然，声明怎么写
还需要想一想，实在想不出我再来求助。DAO大家都说他落后，自然是落后了。但我想，我的DAO离成功一步之遥，还是先做完再说，几天后我一定再做一个ADO。再次感谢！