不是什么精妙的东西。给自己留一个算法资料而已。

点击下载此附件

Function ValList(tbname As String, fldname As String) As String
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
Dim n As Long
rs.Open tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
n = rs.Fields(fldname).Value
rs.MoveFirst
For i = 1 To n
    If i < rs.Fields(fldname).Value Then
        For j = i To rs.Fields(fldname).Value - 1
            ValList = ValList & j & ";"
        Next
        i = rs.Fields(fldname).Value
    End If
    rs.MoveNext
Next
rs.Close: Set rs = Nothing
End Function