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中的记录

ReDim Preserve member(0) as memberinfo
do while not rs.eof
member(UBound(member)). m_bianhao =trim(rs.Fields("字段1") & "")
.............

ReDim Preserve member(UBound(member) + 1) As memberinfo
rs.movenext
loop

基本就是这样!估计应该基本明白了吧!

呵呵，谢谢先

顺便跟你探讨一下啊：）这个我涉及到两个问题：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

你没有应用ado啊! 你点工具 应用 里面有个 为软的 ado2.6的应用 你应用了就可以了