help with labels in access 2003

[RonNCmale]

If have two codes that I'm wishing to merge into one. The code I'm wanting is to print an individual label and to be able to move to print on unused labels. Here is the codes:
First is for the individual label code:
[CODE=vb]Private Sub cmdPrint_Click( )
'Send STGO data to label report
Dim str As String
On Error GoTo ErrHandler
If IsNull(Me!UnitN umber) Then
Exit Sub
End If
str = "UnitNumber = '" & Me!UnitNumber & "'"
Debug.Print str
'Open report in Print Preview.
DoCmd.OpenRepor t "rptSTGOLabels" , acViewPreview, , str
Exit Sub
ErrHandler:
MsgBox Err.Number & ": " _
End Sub
[/CODE]
the next code moves the labels: this one has a form that you enter the number you need the labels to move.

[CODE=vb]Private Sub cmdCancel_Click ()
DoCmd.Close acForm, "frmLabels" , acSaveNo
End Sub

Private Sub cmdPrint_Click( )
Dim rst As New ADODB.Recordset
Dim bytCounter As Byte
Dim bytBlanks As Byte

On Error GoTo ErrHandler
bytBlanks = Forms!frmLabels !txtBlanks.Valu e
On Error GoTo 0

DoCmd.SetWarnin gs False
DoCmd.RunSQL "DELETE FROM tblSTGOLabels"

Set rst.ActiveConne ction = CurrentProject. Connection
rst.Open "SELECT * FROM tblSTGOLabels", , _
adOpenDynamic, adLockOptimisti c
For bytCounter = 2 To bytBlanks
rst.AddNew
rst.Update
Next
rst.Close
Set rst = Nothing

DoCmd.RunSQL "INSERT INTO tblSTGOLabels " _
& "SELECT * FROM STGO"
DoCmd.SetWarnin gs True
DoCmd.OpenRepor t "rptSTGOLabels" , acViewPreview
Exit Sub

ErrHandler:
MsgBox "Please enter a valid label number"
DoCmd.SetWarnin gs True

End Sub[/CODE]