O código foi desenvolvido no vba do excel e o banco de dados é o access.
Tenho que exibir todos os produtos cadastrados no banco de dados em uma das telas dos formulários criados.
Como desenvolver essa função?
O código está assim, por enquanto:
Private Sub ListBox1_Click()
Set Rs = New ADODB.Recordset
Rs.Open "SELECT * FROM TblProduto, MiConexao, adOpenKeyset, adLockOptimistic, adCmdText"
End Sub
Funciona, mas não exibe nada.
Alguém sabe como exibir todos?
Tenho que exibir todos os produtos cadastrados no banco de dados em uma das telas dos formulários criados.
Como desenvolver essa função?
O código está assim, por enquanto:
Private Sub ListBox1_Click()
Set Rs = New ADODB.Recordset
Rs.Open "SELECT * FROM TblProduto, MiConexao, adOpenKeyset, adLockOptimistic, adCmdText"
End Sub
Funciona, mas não exibe nada.
Alguém sabe como exibir todos?