Visual Basic - llenar un listview con registros al cargar el form

hola, tengo una aplicacion en visual con base de datos, y tengo un listview, lo que quiero saber es que codigo debo utilizar para que al cargar el formulario en el evento load, lel listview se llene con los registros que tenga en ese momento en la base de datos de access, gracias por su ayuda.

Saludos

Amigo, necesitas obligatoriamente trabajar con un listview? ese objeto trabaja con "nodos" y a veces se puede hacer más tedioso trabajar nodos relacionados con datos que "items" en un listbox. (lo de tedioso es por la experiencia de cada programador) y además, según lo que explicas, vas a vaciar el contenido completo de uns BD en un listview, será que quisiste decir el contenido de una consulta o una tabla?

Avisame por aca para ayudarte de todos modos.

Saludos

Primero muchas gracias de verdad por responder a mi nota.
No es complicado, yo vi momentaneamente un codigo para ello una vez, pero no lo recuerdo bien, se movia con las propiedades del listview y con un ciclo recorria los registros llevandolos uno a uno al listview( valga la redundancia), ademas es una base de datos pequeña, como un directorio de amigos, no mas de 50 registros (creo), si puedes ayudarme, muchas gracias, si no de todos modos te agradezco tu atencion y si me necesitas para algo ahi esta mi mail. JD

Puedes hacer esto: (Es con conexion ADO)
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Conectar()
On Error GoTo Errores
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
Errores:
If Err.Number <> 0 Then Errores
End Sub
Sub Errores()
Msg = "Error Ocasionado Por:" + Chr(13) + Err.Description
MsgBox Msg, vbCritical, "Error" + Str(Err.Number)
Err.Clear
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Private Sub Form_Load()
Conectar
LlenaListView "Select * From Tabla2", ListView1
End Sub

Sub LlenaListView(pSQL As String, pControl As ListView)

Dim objField
Dim objListItem As ListItem

Registro

With pControl
.View = lvwReport
.Checkboxes = True 'si quieres con checkbox
.ColumnHeaders.Clear
.ListItems.Clear

Rec.Open pSQL, cnbase

For Each objField In Rec.Fields
.ColumnHeaders.Add , objField.Name, objField.Name
Next

While Not Rec.EOF
Set objListItem = Nothing

For i = 0 To Rec.Fields.Count - 1
If i = 0 Then
Set objListItem = .ListItems.Add(, , Rec.Fields.Item(i).Value)
Else
objListItem.SubItems(i) = IIf(IsNull(Rec.Fields.Item(i).Value), "", Rec.Fields.Item(i).Value)
End If
Next i
Rec.MoveNext
Wend
End With
End Sub

miguel, muchisimas gracias de verdad, si algun dia me necesitas y te puedo ayudar contactame al mail. THANX