Dim Cursor1 As Cursor
lblStatus.Text = "Loading From DataBase..."
SQL1.Initialize(File.DirDefaultExternal, Mac&".db", True)
Total = SQL1.ExecQuerySingleResult("SELECT count(id) FROM table")
Cursor1 = SQL1.ExecQuery("SELECT id, name, desc, year FROM table ORDER BY id DESC")
For i=0 To Cursor1.RowCount-1
Cursor1.Position = i
lblStatus.Text = "Loading From DataBase..."&Round((I)*100/Total)&"%"
prgStatus.Progress = Round((I)*100/Total)
DoEvents
Next
lblStatus.Text = "Loading From DataBase...OK"