' return a DataReader over a SqlConnection'' CONNSTRING is the connection string' SQL is the SQL Select statement to be executed'' the connection will be automatically closed when the DataReader is disposed' any exception is returned to the callerFunction CreateDataReader_Sql(ByVal connString As String, _ ByVal sql As String) As System.Data.SqlClient.SqlDataReader ' open the connection Dim cn As New System.Data.SqlClient.SqlConnection(connString) cn.Open() ' prepare the SQL SELECT command Dim cmd As New System.Data.SqlClient.SqlCommand(sql, cn) ' create a DataReader - note the CloseConnection argument ' which causes the Connection to be closed when the DataReader is disposed Dim dr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader _ (CommandBehavior.CloseConnection) ' dispose the Command object and return the result cmd.Dispose() Return drEnd Function

Exploring the Latest Tech Trends Impacting the Real Estate Industry
The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may