用DAO的方法来实现,必须引用DAO 3.6

Function hb(strSite As String)
    Dim x As String
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("tblsites", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
        If rst("sitename") = strSite Then
            hb = hb & rst("Cell_Name") & ","
        End If
        rst.MoveNext
    Loop
End Function

示  例:

点击浏览该文件