Formato en columnas de Listview

[lokoman]

Es igual, solo pon los parametros que faltan:

For Campo = 0 To Rst.Fields.Count - 1
if Campo=0 then
ListView.ColumnHeaders.Add , , Rst.Fields(Campo).Name, 1000, lvwColumnLeft ' La primera siempre es a la izquierda
Else
ListView.ColumnHeaders.Add , , Rst.Fields(Campo).Name, 1000, lvwColumnRight ' La segunda lo que quieras
end if
Next