Private Sub DataReport_Initialize()DataEnvironment1.Command1 (Form1.txtregno.Text,form1.cstd.Text,form1.cinstlno.text)End Sub