Public Class Merci_logica

    Public Function GetCategory() As DbDataReader


        Dim factory As DbProviderFactory = DbProviderFactories.GetFactory(ObjCn.GetProviderName())

        Using conn As DbConnection = factory.CreateConnection()
            conn.ConnectionString = ObjCn.GetConnectionString()

            Using cmd As DbCommand = factory.CreateCommand()
                cmd.CommandText = ("TipoMerce")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = conn
                conn.Open()

                Dim rd = cmd.ExecuteReader
                Return rd
                rd.Close()
            End Using

            conn.Close()
        End Using
    End Function

.......
Dim mnu As New Merci_logica
     catList.DataSource = mnu.GetCategory()
     catList.DataBind()