how to get the DocEntry

hi experts

i need to get the DocEntry while handling the item pressed event

If pVal.ItemUID = "1" And (pVal.ActionSuccess = True) And pVal.FormMode = 2 Then
rs.DoQuery("exec SP_Update_Attendance '" & VDOC & "'")
end if

i declared VDOC as integer variable, i need to get the docEntry of this active form into this variable

how to do that?

please help me

thanks in advance

ajith