criei uma classe de pesquisa mas não consigo chamar o metodo

Boa tarde,

CODE
'xxxxxxxxxxxxxxxxxxxxxxx clsCurso.cls xxxxxxxxxxxxxxxxxxxxxxx
Private Conn

Private strSql As String

Private Sub Class_Initialize()

Set Conn = CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dados\Locatario.mdb"

End Sub

Private Sub Class_Terminate()

If Conn.State <> 0 Then

Conn.Close

Set Conn = Nothing

End If

End Sub

Private Sub listCurso()

Dim rst As String

 Set strSql = "SELECT * FROM CURSO"

 

 Set rst = Conn.Execute(strSql)

 Set listCurso = rst

 Set rst = Nothing

End Sub

CODE
'xxxxxxxxxxxxxxxxxxxxxxx frmCurso.frm xxxxxxxxxxxxxxxxxxxxxxx

Dim Curso As clsCurso

Set Curso = New clsCurso

Set rstRetorno = CreateObject("ADODB.Recordset")

Set rstRetorno = Curso.listCurso

Quando executo o projeto sempre recebo a mensagem que o método não suportado (Curso.listCurso).

O que estou fazendo errado?

Obrigado, David.