Private Sub CmdLuu_Click()

If CmdThem.Caption = "Huû" Then

Adohang.Recordset.Fields("Mahang") = TxtMahang.Text

Adohang.Recordset.Fields("Tenhang") = TxtTenhang.Text

Adohang.Recordset.Update

CmdThem.Caption = "Thªm"

CmdSua.Enabled = True

CmdXoa.Enabled = True

CmdThoat.Enabled = True

Cmddau.Enabled = True

Cmdtruoc.Enabled = True

CmdTiep.Enabled = True

Cmdcuoi.Enabled = True

CmdLuu.Enabled = False

End If

If CmdSua.Caption = "Huû" Then

Adohang.Recordset.Fields("Mahang") = TxtMahang.Text

Adohang.Recordset.Fields("Tenhang") = TxtTenhang.Text

Adohang.Recordset.Update

CmdSua.Caption = "Söa"

CmdThem.Enabled = True

CmdXoa.Enabled = True

CmdThoat.Enabled = True

Cmddau.Enabled = True

Cmdtruoc.Enabled = True

CmdTiep.Enabled = True

Cmdcuoi.Enabled = True

CmdLuu.Enabled = False

End If

End Sub