Private Sub Cmddau_Click()

Adohang.Recordset.MoveFirst

Cmdtruoc.Enabled = False

Cmddau.Enabled = False

CmdTiep.Enabled = True

Cmdcuoi.Enabled = True

End Sub

*******************************

Private Sub Cmdcuoi_Click()

Adohang.Recordset.MoveLast

Cmdcuoi.Enabled = False

CmdTiep.Enabled = False

Cmddau.Enabled = True

Cmdtruoc.Enabled = True

End Sub

*****************************************

Private Sub CmdTiep_Click()

Adohang.Recordset.MoveNext

If Adohang.Recordset.EOF = True Then

Adohang.Recordset.MoveLast

CmdTiep.Enabled = False

Cmdcuoi.Enabled = False

Else

CmdTiep.Enabled = True

Cmdcuoi.Enabled = True

Cmddau.Enabled = True

Cmdtruoc.Enabled = True

End If

End Sub

******************************************

Private Sub Cmdtruoc_Click()

Adohang.Recordset.MovePrevious

If Adohang.Recordset.BOF = True Then

Adohang.Recordset.MoveFirst

Cmdtruoc.Enabled = False

Cmddau.Enabled = False

Else

CmdTiep.Enabled = True

Cmdcuoi.Enabled = True

Cmddau.Enabled = True

Cmdtruoc.Enabled = True

End If

End Sub