objContext.setComplete generates error

Dear Friends,

I am using COM+ in my Business Services and Data Services. When after the completion of the data execution when i use setComplete it generates an Error Message that Object Variable with Block Variable not set. Though I have followed the sample codes for COM+. I am writing the sample code of that.

Sub ValidateUser()
On error goto ErrHandler
Dim objContext as COMSVCSLib.ObjectContext

Set objContext = GetObjectContext()
‘*************
‘Few Code Here ‘*************
objContext.SetComplete

Exit Sub
ErrHandler:
objContext.SetAbort
End Sub

I am not getting the solution for this. Waiting for your reply ASAP….

Thankx in Advance.

Mihir Gandhi