Programación VB: ingrese una cantidad de nombres, imprima el nombre de un apellido específico y cuente la cantidad de personas con este apellido

Ingrese un nombre:

cnn.execute "insertar en valores de personas (nombre) ('Zhang San')"

Imprima el nombre del apellido especificado :

set rst=cnn.execute "selecciona el nombre de las personas donde left(name，1)='张'"

Cuenta el número de personas con este apellido:

set rst=cnn.execute "selecciona recuento(nombre) de las personas donde quedaron(nombre，1)='张'"

msgbox rst.fields(0)