[rmnr]

قاعدة بيانات SQLite لا تقبل Top والبديل له هو Limit

كود :

Dim da As New SQLiteDataAdapter("Select * From [table1] Where [gender]='m' Order By [birthday] Limit 2", con)

Dim dt As New DataTable
da.Fill(dt)

For Each row As DataRow In dt.Rows
    ListView1.Items.Add(New ListViewItem({row.Item("id"), row.Item("name")}))
Next