El botón de búsqueda en la base de datos de los países

PARA EL BOTON CAPTURAR SE IMPLEMENTA UNA RUTINA DE BÚSQUEDA EN LA BASE DE DATOS POR MEDIO DEL CAMPO CLAVE. HAY QUE RECORDAR QUE HAY DOS CAJAS DE TEXTO PARA ESE DATO, UNA QUE ESTÁ LIGADA A LA BASE DE DATOS Y OTRA SOLO DE ENTRADA.

Private Sub Command4_Click()

Dim BUSCADO As String, CRITERIO As String

BUSCADO = Text7.Text

If BUSCADO = "" Then Exit Sub

CRITERIO = "NUMCONTROL LIKE '*" & BUSCADO & "*'"

Data1.Recordset.FindFirst CRITERIO

If Data1.Recordset.NoMatch Then

Data1.Recordset.AddNew

Command5.Enabled = False

Text4.Text = Text7.Text

……..

Else

'Data1.Recordset.MoveLast

'Data1.Recordset.MoveNext

MsgBox ("EL ALUMNO YA FUE DADO DE ALTA")

……..

End If

end Sub

PARA EL BOTON ACEPTAR CUANDO SE VA A GUARDAR EL DATO:

Private Sub Command3_Click()

Dim MENSAJE, BOTONES, TITULO, RESPUESTA

Dim MENSAJE2, BOTONES2, TITULO2, REPUESTA2

MENSAJE = "SON CORRECTOS LOS DATOS QUE VAN A REGISTRARSE?"

BOTONES = vbYesNo + vbQuestion + vbDefaultButton1

RESPUESTA = MsgBox(MENSAJE, BOTONES, TITULO)

If RESPUESTA = vbYes Then

Data1.Recordset.Update

Data1.Recordset.MoveLast

MENSAJE2 = "CAPTURA OTRO ALUMNO?"

BOTONES2 = vbYesNo + vbQuestion + vbDefaultButton1

RESPUESTA2 = MsgBox(MENSAJE2, BOTONES2, TITULO2)

If RESPUESTA2 = vbYes Then

Text4.Enabled = False

……

Else

Unload Me

End If

End If

End Sub

...