Private Sub Command1_Click()

MsgBox "Ticket Booked"

End Sub

Private Sub Command2_Click()

MsgBox"Payment Cancel.Please try again after some time!!"

End Sub

Private Sub Form_Load()

Set con = New ADODB.Connection

Set rs =  New ADODB.Recordset

con.Open("Provider = MSDAORA.1;Password =ssn;User ID =system;Persist Security Info = True")

rs.Open "select * from payment_details ",con,adOpenDynamic,adLockBatchOptimistic

Text1.Text = rs("tno")

Text3.Text = rs("cost_per_tickiet")

Text4.Text = rs("no_of_tickets")

Text5.Text = rs("amount")


End Sub
