vb6中取sqlite最后一行数据

为了查如何取最后一行数据，在网上查了很多，sqlite也不支持top语句，终于让我找到一个利用limit来查询最后一行的办法，如果各位有更简便的方法请不吝赐教。
Dim odb As Object
Dim odb1 As Object
    Set odb = CreateObject("LiteX.LiteConnection")
    Set odb1 = CreateObject("LiteX.LiteStatement")
    odb.open (App.Path & "\test.db")
    odb1.ActiveConnection = odb

    sql = "select * from tab01"
    odb1.prepare (sql)
    n = odb1.rowcount '取一共有多少行数据
    odb1.Close
  
   sql = "select * from tab01 limit " & n - 1 & ",1" '利用limit语句用法取最后一行的数据
    odb1.prepare (sql)
   For Each rows In odb1.rows
   Label1 = Label1 & rows(0) & "   " & rows(1) & vbCrLf
   Next
    odb1.Close
    odb.Close