Below is my code
My problem is that give me an error about getitembyname saying that "method or data member not found"

any ideas???

Code:
Dim strsql As String
Set rsconn = New ADODB.Recordset
OpenDB
    strsql = "SELECT * FROM " & _
    "MASTER_MO WHERE MASTER_MO.SHIP_DATE=#" & frmShipping.cmbShipDate.Text & "# " & _
    "AND MASTER_MO.PO='" & frmShipping.txtPoNo.Text & "'"
    Debug.Print strsql
    rsconn.Open strsql, con, adOpenDynamic, adLockOptimistic, adCmdText

    Set CrAppl = New CRAXDRT.Application
    Set CrRep = CrAppl.OpenReport(App.Path & "\RptShipping1.rpt")
    CrRep.FormulaFields.GetItemByName("Container").Text = "'" & Trim(frmShipping.txtContainer.Text) & "'"
    CrRep.DiscardSavedData
    CrRep.Database.Tables(1).SetDataSource rsconn, 3
    CRViewer1.ReportSource = CrRep
    CRViewer1.EnableSearchExpertButton = True
    CRViewer1.DisplayGroupTree = False
    CRViewer1.EnableCloseButton = True
    CRViewer1.EnableZoomControl = True
    CRViewer1.DisplayToolbar = True
    
    CRViewer1.ViewReport
    Do While CRViewer1.IsBusy
        DoEvents
    Loop
     
    CRViewer1.Zoom 94
Set rsconn = Nothing
CloseDB