I got this kind of error:

Operation is not allowed when the object is closed.

Private Sub cmdPrint_Click()
Dim rs As New ADODB.Recordset

Set rptRecord.DataSource = rs
rptRecord.Show 1

End Sub

You have created the recordset object at line 2 but you need to assign it an actual recordset using a SET statement

Set rs = ......
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.