Preencher List View

Pessoal, me ajude. Não consigo preencher o ListView (ListaAlunos)
No .bas coloquei:

Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rsCor As New ADODB.Recordset
Public i As Integer
Public lst As ListItem

No form coloquei:

Private Sub Form_Load()
   cnn.CursorLocation = adUseClient
   cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "escola.mdb;"

  ListaAlunos.ListItems.Clear
  'se não há registros então sai da rotina
  If rs.RecordCount = 0 Then Exit Sub

   'enquanto houver registros inclui os registros no ListView
   While Not rs.EOF

      Set lst = ListaAlunos.ListItems.Add(, , rs(0))

      For i = 1 To 5
        lst.SubItems(i) = rs(i)
      Next i
     rs.MoveNext
   Wend

End Sub

Porém ele dá erro na parte:   lst.SubItems(i) = rs(i)
E se eu retirar isso, somente aparece os registros da primeira coluna da tabela.

O que faço??