cnn.Open() dr = cmd.ExecuteReader( _ CommandBehavior.CloseConnection) Do While dr.Read() lstDemo.Items.Add(String.Format("{0}: {1}, {2}", _ dr("Au_Id"), dr("Au_lname"), dr("Au_fname"))) Loop dr.Close()>All,
>Dim objConnection As SqlConnection >Dim objCommand As SqlCommand >Dim objParameter As SqlParameter >Dim objDR As SqlDataReader >Try > objConnection = New SqlConnection(DBConnectionName) > objConnection.Open() > > objCommand = New SqlCommand(LoadPagedStoredProcedure, objConnection) > objCommand.CommandType = CommandType.StoredProcedure > > ... Set Parameters Here ... > > objDR = objCommand.ExecuteReader(CommandBehavior.CloseConnection) > >Catch objException As Exception > mObjException = objException >Catch objSQLException As SqlException > mObjException = objSQLException >End Try >Return objDR >>