Using sql statement : OleDbConnection « Database ADO.net « VB.Net Tutorial

1. VB.Net Tutorial
2. Database ADO.net
3. OleDbConnection

Option Strict On

Imports System.Data
Imports System.Data.OleDb

Public Module UsingStatement
   Public Sub Main()
      Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NorthWind.mdb")

      Dim cmd As New OleDbCommand
      Dim dr As OleDbDataReader

      Using conn
         conn.Open
         cmd.CommandText = "Select * From Customers"
         cmd.CommandType = CommandType.Text
         cmd.Connection = conn
         dr = cmd.ExecuteReader()
         If dr.HasRows Then
            Do While dr.Read()
               ' Get first and last name of customer
               Console.WriteLine(CStr(dr.Item(1)) & " " & CStr(dr.Item(2)))
            Loop
         Else
            Console.WriteLine("The table has no rows.")
         End If
      End Using
   End Sub
End Module