//For ADO.Net, Using two namespaces
using System.Data;
using System.Data.SqlClient;

//Create a new SqlConnection object with the connection string
SqlConnection sqlConn = new SqlConnection(connectStr);

//Open the connection
sqlConn.Open();

SqlCommand thisCommand = nconConnection.CreateCommand();
thisCommand.CommandText = _SqlQuery;
SqlDataReader thisReader = thisCommand.ExecuteReader();

//Retrieve Data...
while (thisReader.Read())
{
}

//Close the Reader
thisReader.Close();

//Close the connection
sqlConn.Close();

"For ADO.Net, Import two namespaces
Imports System.Data
Imports System.Data.SqlClient

"Create a new SqlConnection object with the connection string
Dim sqlConn As New SqlConnection(connectStr)

"Open the connection
sqlConn.Open()

"Write Code to Retrieve Data...

"Close the connection
sqlConn.Close()

Dim objConn
Dim objRec
Dim sInfo
Dim Query
Dim icount
Dim i

"Create New Connection
Set objConn = CreateObject ("ADODB.Connection")

Query = "SELECT * FROM tblEmployee;"

sInfo = "DRIVER= {MySQLODBC3.51Driver};SERVER=myserver;DATABASE=northwind;"

"Using Provider
"objConn.Provider = "MySQLProv;"
"sInfo = "SERVER=myserver;DATA Source=northwind;"

"Open Connection
objConn.Open sInfo

"Create New RecordSet
Set objRec = CreateObject("ADODB.Recordset")

"Open RecordSet Connection
objRec.Open Query, objConn

icount = objRec.Fields.count

do while not objRec.EOF
loop

"Close RecordSet
objRec.close
set objRec = nothing

"Close Connection
objConn.close
set objConn = nothing

Dim objConn
Dim objRec
Dim sInfo
Dim Query
Dim icount
Dim i

"Create New Connection
Set objConn = CreateObject ("ADODB.Connection")

"Using Provider
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
sInfo = "\\myserver\database\NorthWind.mdb"

Query = "select top 10 * from orders;"

"Open Connection
objConn.Open sInfo

"Create New RecordSet
Set objRec = CreateObject("ADODB.Recordset")

"Open RecordSet Connection
objRec.Open Query, objConn

icount = objRec.Fields.count

do while not objRec.EOF
loop

"Close RecordSet
objRec.close
set objRec = nothing

"Close Connection
objConn.close
set objConn = nothing