查询表的方法

1、写一个自定义函数：

Function DSTR(ID As String) As String
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
ssql = "select * from 原始表 where 受种者编码='" & ID & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
    DSTR = DSTR & rs("针次").Value & ";"
    rs.MoveNext
Next
rs.Close
End Function

2、在查询中引用该函数：

SELECT First(原始表.ID) AS ID,受种者编码,受种者姓名,性别,出生日期,户籍类型,父亲姓名, DSTR([受种者编码]) AS 针次
FROM 原始表
GROUP BY 受种者编码,受种者姓名,性别,出生日期,户籍类型,父亲姓名
ORDER BY First(原始表.ID);