Option Compare Database
 
	Public Function HorizontalName(fld2 As Variant) As String
 
	   Dim SQLx, Hname As String 
	   Dim rs As DAO.Recordset
 
	    SQLx = "select q1.kind ,q1.dec from q1 order by q1.[kind],q1.A_no;"
 
	   Set rs = CurrentDb.OpenRecordset(SQLx, dbOpenSnapshot) 
	       rs.MoveFirst 
	    Do While Not rs.EOF 
	   If rs!kind = fld2 Then
 
	Hname = Hname & "¡" & rs!Dec 
	End If 
	       rs.MoveNext 
	         Loop 
	     
 
	   If Hname <> "" Then 
	    HorizontalName = Right(Hname, Len(Hname) - 1)  
	    Else 
	    HorizontalName = Hname 
	    End If 
	    Set rs = Nothing
 
	End Function