I know this may seem strange, but I've answered my own question. If anyone else needs it, this answer assumes CrystalReport1 was renamed "PeopleDetail", that ReportSQL$ contains the SQL to select the records, and ReportTitle$ was supplied by the user as the title they chose:<br>
<br>
<br>
Dim Report As New PeopleDetail<br>
<br>
Option Explicit<br>
____________________________________________<br>
Private Sub Form_Load()<br>
Dim rs As New ADODB.Recordset<br>
<br>
If Len(ReportSQL$) = 0 Then<br>
MsgBox "Recordset not selected yet. Use the Query form first"<br>
Unload Me<br>
End If<br>
<br>
'Use this SQL statement to select the records to use<br>
rs.Open ReportSQL$, _<br>
"DSN=" & DSN$ & ";", adOpenKeyset<br>
Report.Database.SetDataSource rs<br>
<br>
If Len(ReportTitle$) = 0 Then<br>
Report.ReportTitle = "Detailed Personal Report"<br>
Else<br>
Report.ReportTitle = ReportTitle$<br>
ReportTitle$ = ""<br>
End If<br>
'CRViewer1.Name = "Test Name"<br>
CRViewer1.DisplayGroupTree = False<br>
CRViewer1.ReportSource = Report<br>
CRViewer1.ViewReport<br>
<br>
End Sub