Como executar o comando query sql no VBA de acesso?

Eu tenho esse problema no trabalho hoje, vá imediatamente ao google para perguntar, a resposta que recebi é a seguinte, por favor, ajude de parceiros experientes, obrigado   ~

Escreva um código semelhante ao seguinte no evento de alteração da caixa de combinação:

O código a seguir significa: combo é uma caixa de combinação que exibe o fornecedor Ao selecionar o fornecedor, o número total de pedidos do fornecedor é exibido no Texto4.

Sub Combo0_Change privado ()

Dim fornecedor ID

ID do fornecedor = Combo0.Value

Dim sql As String, rs As Recordset

sql = "select count (*) as cnt de [Purchase Order] onde [Supplier ID] =" & Supplier ID'Query instrução SQL.

Definir rs = CurrentDb.OpenRecordset (sql)

Text4.SetFocus

Text4.Text = rs.Fields (0)

End Sub

Boa noite e bem-vinda ao fórum
Leia as regras e respeite-as para mantermos o fórum organizado
A sala de repositórios está interdita à colocação de dúvidas- Por se tratar de membro recente, movi-lhe a dúvida para esta sala, caso contrário, a dúvida seria eliminada.
Aguardemos que alguém entenda a sua dúvida e a consiga ajudar

Ok, obrigado