Acceso a operación VB, código de búsqueda

El cuadro de texto está configurado como una matriz: El cuadro de texto está configurado como una matriz: Texto1(1) a Texto1(17), por lo que el programa es muy simple. Private?Sub?Command1_Click()

'Por ejemplo, consultar registros

Dim?strSQL?As?String llama a SJK(db)?Abrir la base de datos strSQL?Select?*?From ?zhiban ?¿Dónde?ID=1" Establecer?RS?=?db.OpenRecordset(strSQL) Si?No?RS.EOF?Entonces para?Clase")? <>?"" Entonces?Texto1(I).Texto? =? RS(CStr(I)?Class") ¿Siguiente?I Else MsgBox?"¡Sin datos! " ¿Fin? Si RS.Close db.Close

Fin?Sub

Si necesita proporcionar una dirección, envíela.