您的参与将给我莫大的鼓励!!!!基础中的基础，急求！！！！！
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 Sub
Sub 添加()
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中运行完全正常，数据库显示都没有问题！但是我把这个数据库，作为一个窗体，在一个大的工程中，不能运行，提示错误如下：编译错误，用户定义类型未定义！请各位提示一二！不胜感激，急求！！！！！！
[解决办法]
不理解说什么，错误停在哪？有没有添加Adodc控件
[解决办法]
但是我把这个数据库，作为一个窗体，在一个大的工程中
这是什么意思？
你到那个不运行的大工程里看看reference是不是和你可以运行的这个小工程一样的 ？
Set DataGrid2.DataSource = rst 这个添加了么？
[解决办法]
应该是没有引用 ADO 类吧。
