Type memberinfo
m_bianhao As String * 2
m_xingming As String * 10
m_yingwendaihao As String * 10
m_mingcheng As String * 20
m_bochang As String * 3

End Type
Dim rs As adodb.Recordset
Dim cn As adodb.Connection
Dim member() As memberinfo
Set cn = New adodb.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\xiangmuku.mdb"
Set rs = New adodb.Recordset
rs.CursorLocation = adUseClient
rs.Open Trim$("select * from 检验项目库 where 项目组='" & Trim(Combzuhe.Text) & "'"), cn, adOpenDynamic, adLockOptimistic
msgs = "查询到" & rs.RecordCount & "条记录"



接下来该怎么赋值呢？我本意是用一个二维数组来记录我所sel中的记录

呵呵，谢谢先

顺便跟你探讨一下啊：）这个我涉及到两个问题：1、为什么老是提示我Dim rs As adodb.Recordset
Dim cn As adodb.Connection的type没有找到该类型的定义，我在“引用”当中加入了该选项如：data access等相关的，但还是提示我没有找到该类型的定义。
2、我用如下代码时是错误的：
for i=1 to rs.recordcount
member(i).m_bianhao=trim(rs.Fields("字段1") & "")
.............
rs.movenext
next i
提示的错误是rs.Fields("字段1") 为null