Gambas - Como mostrar datos de una tabla en un listview

Hola estoy desarrollando una aplicacion en gambas 2.15 con ubuntu 9.04, tengo una Base de datos en MySQL
Me gustaria tomar todos los datos de una tabla llamada historial y mostrarlos en un Listbox o en algun objeto parecido
como un Gridview pero no he encontrado la manera adecuada para realizarlo si me pueden hechar una mano se los agradeceria
Grax de antemano

Dim Cnxn As ADODB.Connection ' Esto lo haces en GENERAL DECLARACION dentro de VER CODIGO (en donde se Programa)

Sub Conexion()
Set Cnxn = New ADODB.Connection
Cnxn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\STOCK.mdb"
Cnxn.Open
End Sub

Private Sub Form_Load()
Call Conexion
call Listar
End sub

Sub Listar()
Dim LST As ListItem
Dim tabla As New ADODB.Recordset
Set tabla = New ADODB.Recordset
pedidosql = "Select * from Stock"
tabla.Open pedidosql, Cnxn, adOpenStatic, adLockOptimistic, adCmdText

ListView1.ListItems.Clear
Do Until tabla.EOF
Set LST = ListView1.ListItems.Add(, , tabla!Codigo)
LST.SubItems(1) = tabla!Compra
LST.SubItems(2) = tabla!Tipo
LST.SubItems(3) = tabla!Articulo
LST.SubItems(4) = tabla!Proveedor
LST.SubItems(5) = tabla!Vencimiento
LST.SubItems(6) = tabla!Peso
LST.SubItems(7) = tabla!Unidad
LST.SubItems(8) = tabla!Marca
LST.SubItems(9) = tabla!Cantidad
LST.SubItems(10) = tabla!Precio
LST.SubItems(11) = tabla!Venta

tabla.MoveNext
Loop
tabla.Close
End Sub

Te aclaro que es un ejemplo lo que te di... MI TABLA (base de datos) SE LLAMA STOCK ahi podes cambiar el nombre y ponerle la tuya... Dentro de mi Base de datos hay una tabla Igual llamada stock (minuscula) y ahi tengo distintos datos cargados.. si ves en la parde de sublistar en donde se carga el listwiev y los datos que se cargan son los mio (campos) ahi podes poner los tuyo si son mas que los mio segui con el 12 (los mismo pero cambiado el Nro y el nombre del campo) ej.. LST.SubItems(11) = tabla!Venta ------->
LST.SubItems(12) = tabla!XXXXXX (el nombre de tu campo). ok

saludos este codigo corre en VB en gambas no funciona el codigo correcto seria

Private Cnxn As Conection ' Esto lo haces en GENERAL DECLARACION dentro de VER CODIGO (en donde se Programa)
Private rs as Result

Private Sub Conexion()
Cnxn = New Conection
Cnxn.host="Localhost"
Cnxn.type="Mysql"
Cnxn.User="usuario del servidor"
Cnxn.password="clave del servidor"
Cnxn.name="mibasededatos"
Cnxn.Open

if Cnxn.opened then
message.info("Conecatdo")
else
message.info("No se pudo Conectar")
endif

End Sub

Private Sub Form_Open()
Call Conexion
call Listar

End sub

Private Sub Listar()
dim n as integer

rs=Cnxn.Find("MiTabla") 'si quieres filtrar usa otros parametros

for n=0 to rs.count-1

List1.add(rs!campo1)

next

Cnxn.close

End Sub