Set view=Database.OpenView("SELECT Action FROM CustomAction WHERE Action =" & _
  "'Call_EditRightReg'")
	view.Execute	
		If  Err <> 0 Then
		recInfo.StringData(0)= "zICE01" & Chr(9) & "0" & Chr(9) & Err & " DIFFERENT" & _
  "VALUES"
		Message &h03000000, recInfo
			zICE01=1
			Exit Function
		End If