How to use the new AAA syntax in Rhino Mocks 3.5 with VB.Net

Imports System.Data.SqlClient

Namespace Repository
    Public Class ProductRepository
        Implements IRepository(Of Model.Product)

        ''' <summary>
        ''' Here is where you would go to the database
        ''' </summary>
        ''' <returns>A list of Products</returns>
        ''' <remarks></remarks>
        Public Function FindAll() As System.Collections.Generic.IList(Of Model.Product) Implements IRepository(Of Model.Product).FindAll
            Dim _List As New List(Of Model.Product)
            Dim _con As New SqlConnection
            Dim _com As New SqlCommand
            Dim _reader As SqlDataReader
            _con.ConnectionString = "some connectionstring"
            _con.Open()
            _com.CommandText = "Select Name from product"
            _com.Connection = _con
            _reader = _com.ExecuteReader
            While _reader.Read
                _List.Add(New Model.Product(_reader.GetString(0)))
            End While
            Return _List
        End Function
    End Class
End Namespace