DataSource e DataMember

Imports System.Data.OleDb

Public Class frmMain
   Inherits System.Windows.Forms.Form

Private Sub frmMain_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Connection As ADODB.Connection = New ADODB.Connection()
        Connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prova\_nasi\Ado.net Corso\Chapter14\ADOInterOp2\NWind.mdb;Persist Security Info=False")
        Dim RS As ADODB.Recordset = New ADODB.Recordset()
        RS.Open("SELECT Customers.*, ContactName + ' from ' + " _
                  & "CompanyName AS FullName FROM Customers", _
                 Connection, _
                 ADODB.CursorTypeEnum.adOpenDynamic, _
                 ADODB.LockTypeEnum.adLockReadOnly, 0)

Dim DA As OleDbDataAdapter = New OleDbDataAdapter()
        Dim DS As DataSet = New DataSet()

DA.Fill(DS, RS, "Customers")
        lbCustomers.DataSource = DS.Tables("Customers")
      lbCustomers.DisplayMember = "FullName"

Connection.Close()
   End Sub
End Class

Imports System.Data.OleDb

Public Class frmMain
Inherits System.Windows.Forms.Form

Private Sub frmMain_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim Connection As ADODB.Connection = New ADODB.Connection()
Connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Prova\_nasi\Ado.net Corso\Chapter14\ADOInterOp2\NWind.mdb;Persist Security Info=False")
Dim RS As ADODB.Recordset = New ADODB.Recordset()
RS.Open("SELECT Customers.*, ContactName + ' from ' + " _
& "CompanyName AS FullName FROM Customers", _
Connection, _
ADODB.CursorTypeEnum.adOpenDynamic, _
ADODB.LockTypeEnum.adLockReadOnly, 0)

Dim DA As OleDbDataAdapter = New OleDbDataAdapter()
Dim DS As DataSet = New DataSet()

DA.Fill(DS, RS, "Customers")
lbCustomers.DataSource = DS.Tables("Customers")
lbCustomers.DisplayMember = "FullName"

Connection.Close()
End Sub
End Class