تبدیل Query به String

گاهی اوقات در ساخت گزارشات لازم می شود که یک ستون را به صورت افقی نمایش دهید ، یا ستونی را می خواهید به حالت String یکجا داشته باشید . تابعی که نوشته ام از شما Query و یک Char می گیرد سپس اولین ستون را با Char گرفته شده به هم متصل می نماید.
ورودی

QToStr(“Select [Name] from Personnel”,”-“)

جدول Select

ALI

HAMID

REZA

MOHAMMAD

خروجی

(ALI-HAMID-REZA-MOHAMMAD)

Public Function QToStr(Query As String, Char As String) As String
Dim Rec As ADODB.Recordset
Set Rec = New ADODB.Recordset
Dim Str As String
Dim count As Integer
Dim I As Integer
I = 1
Rec.Open Query, CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic
count = Rec.RecordCount
If count > 0 Then
Str = "( "
Else
Str = "رکوردی وجود ندارد"
End If
While Rec.EOF = False
Str = Str + CStr(Rec.Fields(0))
Rec.MoveNext
I = I + 1
If I <= count Then 
Str = Str + Char 
Else
Str = Str + " ) " 
End If 
Wend 
QToStr = Str 
End Function