这是一个利用datagird datacombo控件 设计学生成绩查询的程序
Option Explicit
Dim conn As ADODB.Connection
Dim WithEvents rs As ADODB.Recordset
Private Sub Command1_Click()
Dim strsql As String
Set conn = New ADODB.Connection
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data.Source=" & App.Path_ & "\library.mdb;" & "persist security info=false"
strsql = "select * from 图书代码 where 书名 like'" & Text1 & "%'order by 类别代码,书名,出版单位 "
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs

End Sub

Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
StatusBar1.SimpleText = "当前位置:" & rs.AbsolutePosition & Space(3) & "记录总数:" & rs.RecordCount
End Sub

运行时老是 出错 用户定义类型为定义 这咋办？？？？？？

提示Dim conn As ADODB.Connection这个未定义？
如果说你的工程中没有用到ADODC这个控件的话建议你先添加一下Microsoft ADO Data Control 6.0(OLEDB)控件

另外strsql = "select * from 图书代码 where 书名 like'" & Text1 & "%'order by 类别代码,书名,出版单位 " 这里的text1写忘了吧？是text1.text吧？

哦，领教了，一直还没注意过

谢啦 现在好了
不过~运行后提示
"未找到方法或数据成员"
adodc控件的连接好像没有问题
它提示 "path"问题 我把mdb 文件的完整路径加在 & App.Path_ & " 后边还是一样
怎么办呢？

是的撒，App.Path_ 应该是App.Path 哪儿多的下划线嘛