Creer une fonction qui Fusionne 3 colonnes en Une seule

j'aimerai crée une fonction sous microsoft SQl server, qui fusion 3 colonnes en une seule, qui separe le contenu de la premiere de la deuxieme par un point virgule et de troisieme par des paranthese. et a chaque fois, la fonction doit dabord verifier,
si le contenu des colonnes sont vide ou pas

J'ai pu le faire sous VBA, mais je veux migrer vers MS SQL Server 2008
voici le code en VBA:

Function concRefKat2(IDTXSSystem As Integer, IDTXSRefKat1 As Integer)
    Dim rs As New ADODB.Recordset
    Dim sqlString As String
    Dim concString As String
    Dim currentString As String
    Dim FirstEntry As Boolean
    sqlString = "SELECT tblTXSSystem.IDTXSSystem, tblTXSSystemToTXSRefKat.IDTXSRefKat1, tblTXSSystemToTXSRefKat.IDTXSRefKat2, tblTXSRefKat2.txtEN, tblTXSSystemToTXSRefKat.txtTXSRefKat2NoteEN " & _
    "FROM (tblTXSSystem INNER JOIN tblTXSSystemToTXSRefKat ON tblTXSSystem.IDTXSSystem = tblTXSSystemToTXSRefKat.IDTXSSystem) INNER JOIN tblTXSRefKat2 ON tblTXSSystemToTXSRefKat.IDTXSRefKat2 = tblTXSRefKat2.IDTXSRefKat2 " & _
    "WHERE tblTXSSystem.IDTXSSystem = " & IDTXSSystem & " AND tblTXSSystemToTXSRefKat.IDTXSRefKat1 = " & IDTXSRefKat1 & ";"
    rs.Open sqlString, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If (rs.EOF = False) Then
        rs.MoveFirst
        concString = ""
        FirstEntry = True
    Else
        concString = ""
        concRefKat2 = concString
        Exit Function
    End If
    Do Until (rs.EOF = True)
        If rs![txtTXSRefKat2NoteEN] <> "" Then
            currentString = rs![txtEN] & " (Note: " & rs![txtTXSRefKat2NoteEN] & ")"
        Else
            currentString = rs![txtEN]
        End If
        If FirstEntry Then
            concString = currentString
            FirstEntry = False
        Else
            concString = concString & "; " & currentString
        End If
        rs.MoveNext
    Loop
    concRefKat2 = concString
    rs.Close
End Function