如何从多记录中读取形成合并字符串

Function GetRstString()
    Dim strTemp As String
    strTemp = CurrentProject.Connection.Execute("SELECT 姓名,面积 FROM qyl_jingyingfw").GetString(, , "|", ";")
    strTemp = Replace(strTemp, "|", "")
    If Right(strTemp, 1) = ";" Then strTemp = Left(strTemp, Len(strTemp) - 1)
    Debug.Print strTemp
End Function