I'm trying to make changes to a vb 6.0 application that used Crystal 4.6 (old stuff) to Crystal XI.  I am trying to pass a sql query to the crystal report that is already designed.  Can someone help?

=======MODULE THAT SELECTS PRINT FUNCTION===============================
Private Sub cmdPrint_Click()
    
    Dim varResponse As Variant
    
        frmPrint.repPack.SQLQuery = "SELECT QUERY"
        frmPrint.Show 1
 
End Sub
========frmPrint ===================================================
 
Private Sub Form_Load()
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2
    
    On Error GoTo PrintLoadError
    '
    ' set number of copies to 1 default
    '
    frmPrint.cbxCopie = 1
    '
    ' if no default printer disable,
    '    else set as default choice
    '
    If Printer.DeviceName = "" Then
        optPrinter.Enabled = False
    Else
        optPrinter.Caption = Printer.DeviceName & "  on " & Printer.Port
        optPrinter.Value = True
    End If
    
    Exit Sub
PrintLoadError:
    optPrinter.Enabled = False
    Exit Sub
End Sub
 
Private Sub cmdPrint_Click()
    Dim varResponse As Variant
    Dim PrintDest As Integer
    
    On Error GoTo PrintError
    
    PrintDest = IIf(optWindow = True, 0, 1)
    repPack.Destination = PrintDest
    '
    ' Print Preview
    '
    If PrintDest = 0 Then
        frmPrint.Enabled = False
        frmPrint.cbxCopie.Enabled = False
    End If
    '
    ' Printer
    '
    If PrintDest = 1 Then
        frmPrint.Enabled = True
        cmdPrint.Enabled = False
        repPack.CopiesToPrinter = cbxCopie
    End If
        
    repPack.ReportFileName = "filepath + filename"
     
    repPack.Action = 1
    cmdPrint.Enabled = True
    Screen.MousePointer = 0
    If PrintDest = 0 Then frmPrint.Enabled = True
    Exit Sub
    
    Unload Me
 
PrintError:
    Screen.MousePointer = 0
    frmPrint.Enabled = True
    MsgBox (Err.Number & " - " & Err.Description)
 
    Unload Me
End Sub