listar clientes sem usar data control

Kra eu uso um código pra preencher o listview, não sei se vai servir mas o listview da pra fazer bastante coisa, da uma olhada.

Antes de tudo publique estas variaveis
Public Cnn As New ADODB.Connection 'UTILIZADA NA FUNÇÃO ABRECONEXAO
Public Rst As New ADODB.Recordset 'UTILIZADA DIVERSAS VEZES PARA ABRIR CONSULTAS
Public Sql as String
No load do seu form tu coloca
Cnn.Open "provider = microsoft.jet.oledb.4.0;persist security info=false;data source = " & caminhodoseubanco & ";Jet OLEDB:Database Password=senhadoseubanco;admin"

sql = "select * from suatabela"

rst.open sql, cnn
rst.bof = true and rst.eof = true then
'senao tiver nada neste select nao faz nada
else
preenche_lista
end if
'isso aqui tudo dentro do form load

Public Sub preenche_lista()
lstvw.ListItems.Clear
lstvw.ColumnHeaders(1).Width = 1000
lstvw.ColumnHeaders(1).Text = "CODIGO"
If Rst.RecordCount = 0 Then Exit Sub
   While Not Rst.EOF
     Set lst = lstvw.ListItems.Add(, , Rst(0))
        lstvw.ColumnHeaders(2).Width = 5800
        lstvw.ColumnHeaders(2).Text = "DESCRIÇÃO"
        lst.SubItems(1) = Rst![descricao]
        Rst.MoveNext
   Wend
end sub

bom da uma olhada depois nas propriedades do list, q da pra fazer ele ficar mais bonito qo dblist!
bom espero ter ajudado