您的参与将给我莫大的鼓励!!!!基础中的基础，急求！！！！！

Question

 Dim cnn As New Connection
 Dim rst As New Recordset
  Private Sub Command2_Click()
   If cnn.State <> adStateClosed Then cnn.Close
    cnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " + App.Path + "\db.mdb"
    cnn.Open
    
    'rst.Close
    rst.CursorLocation = adUseClient
    rst.Open "select * from 职工信息表", cnn
    Set DataGrid2.DataSource = rst
 
End SubSub 添加()
 If cnn.State <> adStateClosed Then cnn.Close
    cnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " + App.Path + "\db.mdb"
    cnn.Open
 
    sql = "select * from 职工信息表"
    rst.Open sql, cnn, 3, 3
    If Not rst.EOF Or Not BOF Then
    rst.AddNew
    rst(0) = Text1.Text
    rst!年龄 = Text2.Text
    rst!性别 = Now
    rst.Update
    End If
    
    rst.Close
    rst.CursorLocation = adUseClient
    rst.Open "select * from 职工信息表", cnn
    Set DataGrid2.DataSource = rst
End Sub
 
作为独立的窗口，在VB中运行完全正常，数据库显示都没有问题！但是我把这个数据库，作为一个窗体，在一个大的工程中，不能运行，提示错误如下：编译错误，用户定义类型未定义！请各位提示一二！不胜感激，急求！！！！！！

Answer 1

不理解说什么，错误停在哪？有没有添加Adodc控件

Answer 2

但是我把这个数据库，作为一个窗体，在一个大的工程中这是什么意思？你到那个不运行的大工程里看看reference是不是和你可以运行的这个小工程一样的 ？Set DataGrid2.DataSource = rst 这个添加了么？

Answer 3

应该是没有引用 ADO 类吧。