Binaryworld - CreateDataReader_Sql - Create a SqlClient Data Reader ... [ VB.net -> ADO.net ]

' 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 caller

Function 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 dr
End Function