new

Private Sub Command2_Click()
Call CONNECT
rs.Open "select * from tbl_book where Name = '" + Combo1.Text + "'", cn,
adOpenDynamic, adLockPessimistic
rs.Fields("Book_date") = Text1.Text
rs.Fields("flatno") = Text2.Text
rs.Fields("Total_residents") = Text5.Text
rs.Fields("Total_amount") = Text6.Text
rs.Fields("Advance") = Text7.Text
rs.Fields("Balance_amt") = Text8.Text
rs.Fields("Status") = "Cancelled"
rs.Update
MsgBox ("Successfully cancelled")
rs.Open "select * from tbl_flat1 where Flat_no = '" + Text2.Text + "'", cn,
adOpenDynamic, adLockPessimistic
rs.Fields("Status") = "Not booked"
End Sub
Private Sub Command3_Click()
MDIForm1.Show
End Sub
Private Sub Form_Load()
bindcombo
End Sub
Private Sub Text7_Change()