Crear "ListView" en Access 2010

[head777]

Hola, buenas noches mis estimados.

Nuevamente me gustaria pedir de su acostumbrada ayuda.

Veran, actualmente estoy realizando varios programas con Access 2010, y en un formulario he insertado un ListView, el cual relleno con un Sql y es a puro codigo, se los muestro a continuacion:

Código:

'-- Me coneccto a la DB de Proveedores
Dim conn
Set conn = CreateObject("ADODB.Connection")
Dim rs
Set rs = CreateObject("ADODB.Recordset")
Dim strconn As String
Dim column_header As ColumnHeader
Dim list_item As ListItem



' Create the column headers.

Set column_header = ListView1.ColumnHeaders.Add(, , "Codigo")
Set column_header = ListView1.ColumnHeaders.Add(, , "Nombre")
Set column_header = ListView1.ColumnHeaders.Add(, , "Dias")
ListView1.GridLines = True


strconn = "Driver={SQL Server};Description=sqldemo;SERVER=SERVER1;UID=xxxx;PWD=yyyy;DATABASE=DB"
'Set conn = New ADODB.Connection
conn.Open (strconn)
Set rs = conn.Execute("Select Id, Name, TERMS_NET_DAYS Credito from Vendor ORDER BY " & _
        "Id", , adCmdText)

 ' Load the data.
    Do While Not rs.EOF
       Set list_item = ListView1.ListItems.Add(, , rs!Id)
        list_item.SubItems(1) = rs!Name
        list_item.SubItems(2) = rs!Credito

        ' Get the next record.
        rs.MoveNext
    Loop

rs.Close
conn.Close

Este codigo se dispara desde un boton que he insertado en el formulario, y ejecuta lo de arriba.

He tenido varios problemas que no he podido corregir como por ejemplo:
1- No logro crear los encabezados... Aunque el codigo ahi esta.
2- Solamente logro desplegar el codigo(id) y no la demas informacion.
3- No logro agregar las lineas cuadriculadas del grid.
4- Quisiera hacerlo solamente "read" para que no lo modifiquen.

A grades rasgos esos son los problemas que he encontrado, espero me puedan ayudar al respecto.

Atte.