Cargar Sql en ListView y mostrarlo en pantalla,todo por código.

Globals

  Dim Lista as listView
  Dim Cursor as Cursor

Activity_Resume

FuncionCargarSqlEnListView

Sub  FuncionCargarSqlEnListView

   Lista.Initialize("Lista")
   Panel.Initialize("Panel")
   For i=0 to Cursor.rowcount - 1
      Cursor.Position = i
      Lista.AddLine(Cursor.GetString2(0))
   Next
   Activity.AddView(Panel,0,0,100%x,100%y)
   Panel.AddView(Lista,0,0,100%x,100%y)
End Sub