I have an access database with vba code in it to insert multiple records into my underlying sql table. This portion is working fine. However, I would like to print a report (which is a label) for each record created. When the record is created, the field Serial_No is automatically assigned and this is what I'm tyring to use in the where condition to print the report. I keep getting an error 'Object Required' on the DoCmd.Open Report line. How can I do this so it works? Thanks!

Private Sub Command14_Click()
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim cntr As Integer
Dim ctl As Control

Set db = CurrentDb
Set rs = db.OpenRecordset("dbo_psi_serial_tags", dbOpenDynaset, dbSeeChanges)

If IsNull(Me.fldOrder) Or Me.fldOrder = "" Then
MsgBox ("Enter an Order Number")
GoTo TheEnd
ElseIf Me.fldOrder > 0 Then

With rs
For cntr = 1 To Me.Qty
.AddNew
.Fields("Order_No").Value = Me.fldOrder
.Fields("Model").Value = Me.fldModel
.Fields("Capacity").Value = Me.fldCap
.Fields("Volts").Value = Me.fldVolt
.Fields("Phase").Value = Me.fldPhase
.Fields("Hz").Value = Me.fldHz
.Update
DoCmd.OpenReport "rpt_Serial_Tag", acViewPreview, , "Serial_No = " & dbo_psi_serial_tags.Serial_No
DoCmd.PrintOut
DoCmd.Close acReport, "rpt_Serial_Tag"
Next cntr

End With
End If

TheEnd:

rs.Close
db.Close

'For Each ctl In Me.Controls
' Select Case ctl.ControlType
' Case acTextBox
' ctl.Value = ""
' End Select
'Next

Exit Sub
End Sub