Búsqueda de registros.

      Cuando buscamos un registro en una tabla, ya sea usando como proveedor de datos a un control Data, o un objeto Recordset, pueden suceder dos cosas.

      1º Que el registro se encuentre, por lo que el puntero de la base de datos, se queda apuntando a ese registro, como registro activo.

      2º Que no se encuentren coincidencias en la búsqueda y el puntero se quede posicionado en Eof, sin ningún registro activo.

      Para resolver la situación del registro activo en la tabla, hacemos uso de la propiedad Bookmark.

ValorBuscar: cadena que se buscará en la tabla.
VarMarcador: Variant para guardar la posición del registro antes de desplazarnos.
Campo_n: nombre del campo por el que se realiza la búsqueda

Private Sub Buscar()
     Dim ValorBuscar As String, VarMarcador As Variant
     ' Se asigna a varMarcador la posición en la tabla
     VarMarcador = Data1.Recordset.Bookmark
     ' Solicitamos del usuario que introduzca el valor a buscar
     ValorBuscar = InputBox("Mensaje para introducir valor", "Buscar", , 1500, 1500)
     ' Si ha introducido algun caracter
     If ValorBuscar <> "" Then
          ' Realizamos la búsqueda de ValorBuscar
          Data1.Recordset.FindFirst "Campo_n Like '" & ValorBuscar & "'"
          ' Si no hay coincidencias
          If Data1.Recordset.NoMatch Then
               ' Muestra el mensaje y restaura la posición
               MsgBox "No existe " & ValorBuscar, vbOKOnly + vbExclamation, "Error"
               Data1.Recordset.Bookmark = varMarcador
          End If
     End If
End Sub

      Al salir del procedimiento Buscar, nos encontraremos con cualquiera de las dos situaciones siguientes:

            1º Que el registro se encuentre y el puntero de la base de datos, se quede apuntando a ese registro, como registro activo.

            2º Que no se encuentren coincidencias en la búqueda. Entonces, se muestra un mensaje, informando del resultado de la búsqueda, pasando a ser el registro activo, el que estaba antes de iniciar la búsqueda.