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

[David Terra 0]

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.

[Anderson Roberto 0]

Todo método que poderá ser acessado por outra classe deve ser declarado com o modificador de acesso Public:

'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

Public Sub listCurso()

Dim rst As String

Set strSql = "SELECT * FROM CURSO"

Set rst = Conn.Execute(strSql)
Set listCurso = rst
Set rst = Nothing

End Sub