Windows 98 & VB6
I create a Recordset and insert some data into this.
Set myRS = New ADODB.Recordset
With myRS.Fields
.Append "ID", adSmallInt
.Append "Start", adDate
.Append "End", adDate
.Append "Duration", adInteger
.Append "Subject", adBSTR
.Append "Body", adBSTR
End With
myRS.Open
For Each myAppointmentItem In myItems
If Not myAppointmentItem.AllDayEvent Then
i = i + 1
myRS.AddNew
myRS.Fields("ID") = i
myRS.Fields("Start") = myAppointmentItem.Start
myRS.Fields("End") = myAppointmentItem.End
myRS.Fields("Duration") = myAppointmentItem.Duration
myRS.Fields("Subject") = myAppointmentItem.Subject
myRS.Fields("Body") = myAppointmentItem.Body
End If
Next myAppointmentItem

Then, how can I use DataReport to print the data in this Recordset?