¿Cómo ejecutar comandos SQL tipo consulta en Access VBA?

Escriba código similar al siguiente en el evento de cambio del cuadro combinado:

El siguiente código significa: el cuadro combinado es un cuadro combinado que muestra proveedores Al seleccionar el proveedor, en Texto4 Muestra el número total de pedidos de este proveedor. Private?Sub?Combo0_Change()

Dim?ID de proveedor

ID de proveedor?=?Combo0.Value

Dim?sql?As?String,?rs ?As?Recordset

sql?=?" select?count(*)?as?cnt?from?[Orden de compra]?where?[Proveedor?ID]="? &?ID de proveedor " Consulta Sentencia SQL

Set?rs?=?CurrentDb.OpenRecordset(sql)

Text4.SetFocus

Text4.Text?=?rs.Fields (0 )

¿Fin?