you could use something like this,

Code:
Dim rsP As New ADODB.Recordset

    With rsP
        ' Create Recordset Fields (Columns) here
        .Fields.Append "tender", adVarChar, 10
        .Fields.Append "activity", adVarChar, 8
        .Fields.Append "reading", adVarChar, 10
        .Fields.Append "turn out", adVarChar, 12
        .Fields.Append "date", adVarChar, 10
        .Fields.Append "time", adVarChar, 10
        .Fields.Append "cfs", adVarChar, 6
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With

    ' load the data into the recordset

            With report1
                ' Bind the Recordset to the Report
                Set .DataSource = rsP
                .DataMember = rsP.DataMember
                .Show
            End With
Assign the text boxes on report1 to use the fields from the recordset.