OleDbConnection - Using sql statement

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

SqlConnection - Connection string for SqlConnection

Module Module1
Dim sConnection As String = "Password=password;Persist Security Info=True;User ID=sa;Initial Catalog=CD;Data Source=(local)"
Sub Main()
Dim objConn As New System.Data.SqlClient.SqlConnection(sConnection)
Try
objConn.Open()
Catch myException As System.Exception
Console.WriteLine(myException.Message)
End Try
Console.ReadLine()

End Sub
End Module