Visual Basic.NET - Problema con una CLASE

Public Function MostrarTodos() As OleDbDataReader

        Dim conectar As New Coneccion

        conectar.conectar()

        Try

            Dim sql = "select * from productos, marcas, categorias, cantidades, precios

                    where

                    productos.cod_marca = marcas.cod_marca

                    and

                    productos.cod_categoria = categorias.cod_categoria

                    and

                    cantidades.cod_producto = productos.cod_producto

                    and

                    productos.cod_producto = precios.cod_producto;"

            Dim cmd As New OleDbCommand(sql, conectar.con)

            Dim datos As OleDbDataReader

            datos = cmd.ExecuteReader

            If datos.Read Then

                Me.Codigo = datos.Item("productos.cod_producto")

                Me.Nombre = datos.Item("productos.nombre")

                Me.Marca = datos.Item("marcas.nombre")

                Me.Categoria = datos.Item("categorias.nombre")

                Me.Cantidad = datos.Item("cantidad")

                Me.Precio = datos.Item("precio")

                conectar.desconectar()

                Return datos

            Else

                MsgBox("El inventario está vacío.")

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        conectar.desconectar()

    End Function

Private Sub frmMostrarTodos_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim Prod As New Productos

        Dim rs As OleDb.OleDbDataReader

        rs = Prod.MostrarTodos

        While rs.Read  '---> ERROR

                Rejilla.Rows.Add(

                    rs.Item("Codigo"),

                    rs.Item("Nombre"),

                    rs.Item("Marca"),

                    rs.Item("Categoria"),

                    rs.Item("Cantidad"),

                    rs.Item("Precio")

                )

            End While

    End Sub

' ... ... ...

    Dim MesPersonnes As OleDbDataReader

    MaCommande.CommandText = "SELECT * FROM TPers"

    MesPersonnes = MaCommande.ExecuteReader()

    Do While MesPersonnes.Read                                          ' Aqui, leemos todos registros del DataReader llamado MesPersonnes

       Console.WriteLine(MesPersonnes.Item(0) & " " & MesPersonnes.Item(1))

    Loop

    MesPersonnes.Close()                                          ' Aqui, cerramos el DataReader llamado MesPersonnes. Eset es necesario ante hacer  ExecuteNonQuery, ExecuteScalar o nuevo ExecuteReader.

' ... ... ...