important question from all experts

i have a recordset of only one field like

4215
1236
4561
23
11
425
4556

i want to display with DataReport with multi coloums ( means limited rows)
could be possible through datareport

4215 1236
4561 23
11 425
4556

=========================================================

i have tryed through following procedure but not working perfect.

Private Sub Command3_Click()
Dim voucherf As String
Dim voucherg As String
Dim ln As Currency
Dim a As Currency
Dim b As Currency
Dim c As Currency

Dim Temp As New ADODB.Recordset
With Temp.Fields
.Append "vouchera", adLongVarChar, 2000
ln = 1
End With
Temp.Open
sSQL = "select * from draw"
Call MakeConn(Cn, Rs, sSQL)
With Rs
Do While Not .EOF
voucherf = Rs.Fields("voucherfigure").Value
voucherg = voucherg & voucherf & Space(15 - Len(voucherf))
ln = ln + 1
If ln < 3 Then
Else
With Temp
.AddNew
.Fields("vouchera").Value = voucherg
End With
voucherf = ""
voucherg = ""
ln = 1
End If
.MoveNext
Loop
End With

With DataReport3
Set .DataSource = Temp
With .Sections("section1").Controls
.Item("text1").DataField = "vouchera"
End With
.Refresh
.Show
End With
End Sub