Ayúdame a escribir un programa usando VB

Pruebe el siguiente método. Cuando hace clic en el botón después de escribir Texto1, buscará chino en inglés. Si hace clic en el botón después de escribir Texto2, buscará chino en inglés.

Atenuar myText como cuadro de texto

Subcomando privado1_Click()

Text1.Text = Adodc1.Recordset.Fields("English")

Text2.Text = Adodc1 .Recordset.Fields("Chino")

Adodc1.RecordSource = "Seleccionar * de la Tabla 1 Donde " amp; myText.Tag amp " LIKE '" amp; "

Adodc1.Refresh

End Sub

Subtexto privado1_LostFocus()

Establecer myText = Texto1

End Sub

Sub privado Text2_LostFocus()

Establecer myText = Text2

End Sub

Sub privado Form_Load()

Text1.Tag="Inglés"

Text2.Tag="Chino"

Fin Sub