Slow user function in MS Access

Public Function GenShortDesc(ftTableName As String, _
    ftProductID As String, _
    ftFeatureValue As String, _
    ftSequence As String, _
    ProdID As String) As Variant

On Error GoTo Err_Handler

    Set dbs = CurrentDb
    
    'ftTableName - Name of the features table
    'ftProductID - Features table Product ID field name
    'ftFeatureValue - Features table vale field name
    'ftSequence - Features table order
        
    Dim rs As DAO.Recordset         'Related records
    Dim strSql As String            'SQL statement
    Dim strOut As String            'Output string to concatenate to.
   
    'Initialize to Null
    GenShortDesc = Null
      
    
    'Build SQL string, and get the records.
    strSql = "SELECT * FROM " & ftTableName
    strSql = strSql & " WHERE " & ftProductID & " = " & ProdID
    strSql = strSql & " ORDER BY " & ftSequence
    
    Set rs = dbs.OpenRecordset(strSql, dbOpenDynaset)
      
    
    
    strOut = "<ul>"
    'Loop through the matching records
    Do While Not rs.EOF
        strOut = strOut & "<li>" & rs(ftFeatureValue) & "</li>"
        rs.MoveNext
    Loop
    rs.Close
    strOut = strOut & "</ul>"
   
    'Return the string
  
        GenShortDesc = strOut
  

Exit_Handler:
    'Clean up
    Set rs = Nothing
    Exit Function

Err_Handler:
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "GenShortDesc()"
    Resume Exit_Handler
End Function

Select allOpen in new window

SELECT Products.ProductID AS ID, Products.*, genTable("CompAttributes","ProductID","Name","Value","Group","Sequence",[id]) AS LongDesc, GenShortDesc("Features","ProductID","Description","Sequence",[id]) AS ShortDesc
INTO [Excel 8.0;Database=I:\Products-txt.xls;].NewExcelTable FROM Products;

Select allOpen in new window