Carregar Dados BD ListView

Bom dia pessoal do forum!

Tenho a seguinte rotina para adcionar as colunas do meu BD para uma listView.

Nela também adciono os valores de cada coluna como subItems da listView.

Private Sub carregaCrono(ByVal lst As ListView, ByVal query As String)
Dim ch As New ColumnHeader
Dim lstItem As New ListViewItem

'Limpa o listView
lst.Columns.Clear()
lst.Items.Clear()
'Abre a conexao
conexao.Open()
Dim cmd As New OleDbCommand(query, conexao)
'Executa a consulta criando um datareader
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.Default)
'Exibe o resultado no listBox
Dim i As Integer
'Percorre o datareader
Do While dr.Read
'Le o primeiro campo do datareader
For i = 1 To dr.FieldCount - 1
ch.Text = dr.GetName(i)
lstItem.Text = dr.GetValue(i).ToString
lstItem.SubItems.Add(dr.GetValue(i).ToString)

Next i

lst.Columns.Add(ch)
lst.Items.Add(lstItem)
Loop
' Fexa a conexao
conexao.Close()
End Sub

No evento Load do meu form chamo esta rotina e passo os parâmetros corretamente

carregaCrono(ListView1, "SELECT * FROM Cronograma")

O problema é que está adcionando somente a ultima coluna do BD e seu valor, o resto não adciona na listView.

Alguém poderia dar alguma dica para me ajudar?

Agradeço :joia: :joia: