Sub Main

Call frmEditForm_InitializeComponents()

frmEditForm.FormTitle = "EditFormwith two queries"

frmEditForm.TwoQueryfrm = True

frmEditForm.GridSQL = "Execute IP_sel_CountryRS"

frmEditForm.RecordSQL = "Execute SIP_sel_ScriptExampleRecord @CountryCode = :CountryCode"

frmEditForm.Tablename="ScriptExample"

frmEditForm.KeyField = "CountryCode"

frmEditForm.PrimaryKey = "CountryCode"

frmEditForm.Script=Script

frmEditForm.GridEditAllowed = False

frmEditForm.EditInGrid = False

frmEditForm.ShowModal

Set frmEditForm = nothing

End Sub