pls help

i am generating report based on the user query.Some fields have been added during the manual design.Now i want to be hiding the field not selected by the query builder and arrangement of the field instead of having a lot of spaces against the field not selected.

This is my code
Private Sub Command8_Click()
Call cmdshow_Click
Dim viewreport As CRAXDDRT.Report
Dim viewreportapp As New CRAXDRT.Application
Set db = New ADODB.Connection
Set Rs = New ADODB.Recordset
constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CaptureData"
db.Open constr
db.Execute "DROP TABLE enroll1;"
db.Execute SQL1
db.Close
Set viewreport = viewreportapp.OpenReport(App.Path & "\Report1.rpt")
With Form6.CrystalActiveXReportViewer1
.ReportSource = viewreport
.Refresh
.viewreport
End With