i get an error when i tried to refresh the data report!

i was suggested by u all in order to refresh the bill to the latest data input (datareport)..i added the followng code in the save button code in the mdi form:

(command "bill" is divided in to two parts "billlheader" which is the parent command and "billdetails" which is the child command,both have a relation of one to many via "billno")

Private Sub cmdButtonName_Click()
On Error Resume Next
3)If DataEnvironment1.rsbill.State = adStateOpen Then
DataEnvironment1.rsbill.Close
End If
DataEnvironment1.bill Text6.text
bill.Refresh
bill.Show (vbModal)
Unload bill
End Sub

but this code shows "application error or object error" at line no 3.
pls help!!