Conectar de esta forma en vb.NET una Base de Datos

[enterariel]

Yo lo tenia así en VB 6.0



'-----> En un Módulo con las referencias que necesita

Código [Seleccionar] Expandir

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public CNADO As ADODB.Connection   '// Conexion ADO
Public RSADO As ADODB.Recordset    '// RecordSet ADO
Public SQLADO As String            '// Parametro para SQL

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub ConectarADO()
   Set CNADO = New ADODB.Connection    '// Crear la nueva conexion
   Set RSADO = New ADODB.Recordset     '// Crear nuevo recordset
   RSADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
   CNADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_servicios; User=root;Password=;Option=3;"
   CNADO.Open                          '// Abrir la nueva conexion
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub CerrarADO()
   CNADO.Close            '// Cerrar la conexion
   Set CNADO = Nothing    '// Liberar conexion de la memoria
   Set RSADO = Nothing    '// Liberar recorset de la memoria
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+



Ya dentro del formulario

Guardar registro en la tabla Factura

Código [Seleccionar] Expandir

Private Sub cmdGuardar_Factura_Click()
   
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   '// Conectar la Base Datos con ADO
       Call ConectarADO
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
       For I = 1 To ListView1.ListItems.Count
       
           V01 = Val(txtNFactura.Text)
           V02 = "#" & txtFecha.Text & "#"
           V03 = "'" & ListView1.ListItems.Item(I).Text & "'"
           V04 = Val(Format(ListView1.ListItems.Item(I).SubItems(1), ""))
           
           ComandoSQL = "INSERT INTO FACTURA (nfactura,fecha,servicio,cantidad) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & ")"
           CNADO.Execute ComandoSQL
       
       Next I
   
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   '// Cerrar la base de datos y liberar la memoria
       Call CerrarADO
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   
End Sub


Crear un Reporte en el Control ListView solo me interesa crear en este control "ListView"

Código [Seleccionar] Expandir

Private Sub cmdReporte_Click()
   
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   '// Conectar la Base Datos con ADO
      Call ConectarADO
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

       ListView2.ListItems.Clear
       
       SQL = "SELECT * FROM FACTURA WHERE nfactura = '1000'"
       RSADO.Open SQL, CNADO, adOpenStatic, adLockOptimistic, adCmdText
       
       Do Until RSADO.EOF
           
           Set TLS = ListView2.ListItems.Add()
           With RSADO
           
               TLS.Text = cnServicios
               TLS.SubItems(1) = .Fields("nfactura") & ""
               TLS.SubItems(2) = .Fields("fecha") & ""
               TLS.SubItems(2) = .Fields("servicio") & ""
               TLS.SubItems(3) = Format(.Fields("cantidad"), "##,###") & ""
               RSADO.MoveNext
               
           End With
           
       Loop
   
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
   '// Cerrar la base de datos y liberar la memoria
       Call CerrarADO
   '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub


Alguien seria tan amable de crear un tutorial de esta forma en VB.NET yo estoy procurando hacer en Visual Studio 2010

[[D4N93R]]

Acá en el foro hay muchos temas de .Net muy buenos, además google te ayuda, te recomiendo también, algo más específico: MSDN, y la web del Guille...