Vorrei popolare la listview 'lstElencoTipi' a due colonne (descrizione, durata) con i record della tabella 'Tipi' del database avente lo schema.
| IDTipo | DescrizioneTipo | DurataTipo |

Ho scritto il seguente codice ma nn va. Dove sbaglio?
(E' lecito quello che sto facendo o esistono soluzioni + intelligenti?)

codice:
Option Explicit

Dim strSQl As String
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = " & App.Path & "\database.mdb"
                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub

Private Sub Form_Load()
    Call connetti
    Rs.Open "SELECT * FROM Tipi" 
    Dim itm As ListItem
    Do While Not Rs.EOF
        itm = lstElencoTipi.ListItems.Add
        itm.Text = Rs!ID
        itm.SubItems(1) = Rs!DescrizioneTipo
        itm.SubItems(2) = Rs!DurataTipo
    Rs.MoveNext
    Loop
End Sub