Hjælp til ændring af funktion og sql

Hey

Jeg har fundet følgende funktion som gør det jeg har brug for, og som iøvrigt virker ganske fint. Jeg kunne dog godt tænke mig at ændre i funktion og SQL så det passer til de overskrifter jeg har i min tabel, frem for at jeg skal ændre mine overskrifter til at passe til funktionen.

Jeg er ikke helt skarp på funktioner, men jeg er ved at lære det.

Funtion og SQL er som følger:

Public Function Conc(Fieldx, Identity, Value, Source) As Variant
  Dim cnn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim SQL As String
  Dim vFld As Variant
 
  Set cnn = CurrentProject.Connection
  Set rs = New ADODB.Recordset
  vFld = Null
 
  SQL = "SELECT [" & Fieldx & "] as Fld" & _
        " FROM [" & Source & "]" & _
        " WHERE [" & Identity & "]=" & Value
 
  ' open recordset.
  rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly
 
  ' concatenate the field.
  Do While Not rs.EOF
    If Not IsNull(rs!Fld) Then
      vFld = vFld & ", " & rs!Fld
    End If
    rs.MoveNext
  Loop
  ' remove leading comma and space.
  vFld = Mid(vFld, 3)
 
  Set cnn = Nothing
  Set rs = Nothing
 
  ' return concatenated string.
  Conc = vFld
End Function



SELECT tblData.[ID], Conc("Field1","ID",[ID],"tblData") AS Field1
FROM tblData
GROUP BY tblData.[ID];



Istedet for ID, og Field1, har min tabel overskrifterne "Insp Lot" og "Commments"