DataReport and ADODB Help!!!

[JazzAddict]

Hi. I'm in need of hepl.
I have the following code for creating a report at runtime

Private Sub cmdRaport_Click() 

Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim rap As New DataReport1
Dim StrSQL As String

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= " & App.Path & "\db\Model.mdb"
cn.Open

    StrSQL = "SELECT * FROM Hordere WHERE OrderID = " & ordID    
    Set rs = cn.Execute(StrSQL)
    
    'Header and Report caption
    With rap.Sections("RepHeader")
        .Controls("lblFirm").Caption = frmMain.mccFirma.Text
    End With
'    rap.Caption = frmMain.cboOrder.Text
    
    rap.Sections("PgHeader").Controls("lblPH").Caption = "PROCES TEHNOLOGIC"
    
    With rap.Sections("ordHead")
        .Controls("lblOrd").Caption = "Order:"
        .Controls("lblMod").Caption = "Model:"
        .Controls("txtOrd").DataField = frmMain.cboOrder.Text
        .Controls("txtMod").DataField = frmMain.mccModClient.Text
    End With
    
    Set rap.DataSource = rs
    
    With rap.Sections("ordDet")
        .Controls("txtCod").DataField = "CodOP"
        .Controls("txtOp").DataField = "Operatii"
        .Controls("txtNMunc").DataField = "Nrmunc"
        .Controls("txtNT").DataField = "NT"
        .Controls("txtNP").DataField = "NP"
    End With
    
    rap.Show vbModal
    rs.Close
    Unload rap
    Set rs = Nothing
    Set rap = Nothing
End Sub

It works fine until it reaches "rap.Show vbModal" when it shows the report. I get an error message: DataFiled "Ord1" Not Found.
Ord1 is the name of the order. What did i do wrong?

Pls Help it's urgent

Thanks and regards
Addict

[si_the_geek]

Do you have a Field which is called Ord1?

If not, you don't want to specify that as a DataField.. I presume you want to assign it to the Caption instead.

[JazzAddict]

No i don't have Ord1 as a field. It's the name of the order bun it's not a field. And the interesting part is that i'm not asigning it as a field. "Ord1" is not in the table i'm creating the report for.

[si_the_geek]

I'm assuming that you are assigning it as a field in this section:

...
        .Controls("lblMod").Caption = "Model:"
        .Controls("txtOrd").DataField = frmMain.cboOrder.Text
        .Controls("txtMod").DataField = frmMain.mccModClient.Text
...

[JazzAddict]

Yes. I saw that 2 after i posted thanks for the help :P