Da SQL ad oledb Recordset

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("DRIVER={SQL Server};SERVER=LOCALHOST\IstanzaPaoloPugl;" _
& "DATABASE=Northwind;")
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