'*********************-----
Sub TEST()
MsgBox CreateReportSource(1)
End Sub

Function CreateReportSource(musteri_no As Long) As String
Dim rs As New Recordset
Dim fld As ADODB.Field
Dim s As String
Dim i As Integer

s = "select * from [tblürün] where [müşterino] = " & musteri_no

rs.Open s, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

ReDim arr(1 To 1)

For Each fld In rs.Fields

If (Not IsNull(fld) Or Len(fld) > 0) Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = "[" & fld.Name & "]"
End If

Next

rs.Close

CreateReportSource = _
"SELECT " & Join(arr, ", ") & Chr(13) & _
"FROM [tblürün] " & Chr(13) & "WHERE [müşterino] = " & musteri_no

End Function
'**********************************