Nâng cao hiệu suất khi sử dụng DAO Access

 Dim db As Database

    Dim rs As Recordset

    Dim sql As String

    Set db = CurrentDb()

    sql = "SELECT * FROM tbHocVien"

    Set rs = db.OpenRecordset(sql)

    Dim dem As Integer

    If Not rs.EOF Then

        rs.MoveFirst

        Do While Not rs.EOF

            dem = dem + 1

            rs.MoveNext

        Loop

    End If

    MsgBox dem

    rs.Close

    Set rs = Nothing

    Set db = Nothing

  Dim db As Database

    Dim rs As Recordset

    Dim sql As String

    Set db = CurrentDb()

    sql = "SELECT * FROM tbHocVien"

    Set rs = db.OpenRecordset(sql)

    rs.MoveLast

    MsgBox rs.RecordCount

    rs.Close

    Set rs = Nothing

    Set db = Nothing

 Dim db As Database

    Dim rs As Recordset

    Dim sql As String

    Set db = CurrentDb()

    sql = "SELECT Count(*) FROM tbHocVien"

    Set rs = db.OpenRecordset(sql)

    rs.MoveLast

    MsgBox rs(0)

    rs.Close

    Set rs = Nothing

    Set db = Nothing