Problemas com atualização de listview

[Carlosdm]

Boa tarde pessoal!

Estou com um problema na atualização da minha listview a partir de um banco de dados do access.

Meu problema é o seguinte, o código só funciona se no access eu colocar os tipos de dados "texto curto", se eu colocar como número a listagem não é feita.

Segue o comando:

Private Sub refreshdata()

If Not cnn.State = ConnectionState.Open Then cnn.Open()

Dim dt As New DataTable

Dim ds As New DataSet

ds.Tables.Add(dt)

Dim da As New OleDb.OleDbDataAdapter("select * from tb_cestoque", cnn)

da.Fill(dt)

Dim myrow As DataRow

For Each myrow In dt.Rows

ListView1.Items.Add(myrow.Item(0))

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(1))

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))

Next

cnn.Close()

End Sub

Alguém sabe o que pode ser?

[SuporteHSL]

Naõ entendo a lógica do seu código, mas se procura atualização poderia criar um critério de referencia, tipo carregar uma variavel com o ultimo número da chave primária, antes ele consulta no banco se existir registros superio a chave ele atualiza. Caso queira me fale, utilizo este meio para diversas coisa em VB6.