Help with Creating Report

I really need some help please, My vb6 program works great for my boss, but he wants it to print reports, there are not numerical figures involved, most if not all text. How do I make an app as simple as this show a report capable of printing. (I have Crystal Report 8.5) Thanks.- kgambit

Private Sub cmdPrint_Click()
'this is supposed to show the report.
End Sub

Private Sub cmdSave_Click()

'add a new entry the table.
With Data2.Recordset
.AddNew
!CompliedBy = txtComplied
!CaseNumber = DataCombo1.Text
!Date = txtDate
!OtherOfficers = txtOther
!Subject = txtSubject
!details = txtDetail
!ReportNumber = txtReportNumber
.Update
End With
Data2.Refresh

End Sub