Conectar Base de Datos en Visual Basic 2008 igual a VB6

[enterariel]

Hola a todos a ver si me pueden ayudar con esto, en visual basic nunca tube problemas con la conexion y bajar los registros en el control ListView

Lo que quiero hacer es conectar a a la base de datos bajar en un listview, ya se que el datagrid es mejor que toda esas cosas pero no me gusta usar ese control

Aca les dejo como yo hago en en Visual basic 6

Todos con REFERENCIAS

en un modulo registro estos

Código:

Public ADOConexion As ADODB.Connection
Public ComandoSQL As String

Public DB As Database
Public RS As Recordset

Public StrSQL As String


'//Para abrir la base de datos

Public Sub ConectarADO()
    Set ADOConexion = New ADODB.Connection
    ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123"
    ADOConexion.Open
End Sub

'// Cerrar ADO y liberar la memoria
    
Public Sub CerrarADO()
    ADOConexion.Close
    Set ADOConexion = Nothing
End Sub

'// Crear una nueva coneccion con el DAO
Public Sub ConectarDAO()
    Set DB = OpenDatabase("c:\base.mdb", True, False, ";PWD=123")
    Set RS = DB.OpenRecordset(StrSQL)
End Sub
     
'// Cerrar DAO y liberar la memoria
Public Sub CerrarDAO()
    DB.Close
    Set DB = Nothing
    Set RS = Nothing
End Sub


..::: Esto en el formulario para grabar, eliminar, editar ::...

Private Sub cmdGuardar_Click()

    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        
        For I = 1 To L_Ventas.ListItems.Count
            V01 = Val(txtNFactura.Text)                             ' Numero de factura
            V02 = "#" & Fecha.Caption & "#"                         ' Fecha de la venta
            V03 = "'" & txtNCliente.Text & "'"                      ' Nombre del Cliente
            V04 = "'" & txtRUC.Text & "'"                           ' RUC del cliente
            V05 = "'" & L_Ventas.ListItems.Item(I).Text & "'"                   ' Codigo del Articulo
            V06 = Val(Format(Listview1.ListItems.Item(I).SubItems(1), "#####"))     ' Nombre del articulo
            V07 = Val(Format(Listview1.ListItems.Item(I).SubItems(2), "#####"))     ' Cantidad del articulo
            
            ComandoSQL = "INSERT INTO Ventas (Factura, Fecha, Cliente, RUC, Codigo, Articulo, Precio) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & "," & V05 & "," & V06 & "," & V07 & ")"
            ADOConexion.Execute ComandoSQL
        Next I
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub



...::: Este utilizo para haer mis reportes en el ListView :::..

Private Sub cmdMostrar_Ventas_Click()

    Listview2.ListItems.Clear
    StrSQL = "SELECT * FROM Ventas ORDER BY Factura"
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar a la Base de Datos
        Call ConectarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
    Do Until RS.EOF
    
        Set TLS = Listview2.ListItems.Add()
        TLS.Text = RS.Fields("Factura") & ""
        TLS.SubItems(1) = RS.Fields("Fecha") & ""
        TLS.SubItems(2) = RS.Fields("Cliente") & ""
        TLS.SubItems(3) = RS.Fields("Codigo") & ""
        TLS.SubItems(4) = RS.Fields("Articulo") & ""
        
        RS.MoveNext
    
    Loop
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub

Alguien me puede ayudar a hacer igual que este en VB 2008