Set msiDB = Session.Database
    Set msiTablesView = msiDB.OpenView("SELECT * FROM 'CustomAction' WHERE" & _
      "'Action' = 'Call_EditRightFile'")
    msiTablesView.Execute
	If Err <> 0 Then
		recInfo.StringData(0)="zice32" & Chr(9) & "0" & Chr(9) & "view.Execute_1 API" & _
  "Error:" & Err
		Message &h03000000, recInfo
		zice32=1
		Exit Function
	End If