Es muy

Como sabrás, se puede usar .BOF o .EOF para comprobar si está en los límites del recordset.
BOF devolverá True si el "puntero" está antes del primer registro, por otro lado EOF nos indicará si ese puntero está después del último registro, pero la recomendación para comprobar si realmente está vacío es que se cumplan esas dos condiciones: que tanto BOF como EOF sean True, por tanto podremos haceruna comprobación como esta:
    With rst
        If .EOF And .BOF Then
            lblData.Caption = "No hay ningún registro activo"
            .MoveFirst
        Else
            Text1(0) = .Fields("Au_ID")
            ' Por si el dato es nulo, añadirle una cadena vacia
            Text1(1) = .Fields("Author") & ""
            Text1(2) = .Fields("Year Born") & ""
        End If
   End With
 
Aunque también se podría comprobar que .BOF Or .EOF sean True, es decir, hacer algo como esto:
If .EOF Or .BOF Then
pero ya te digo que lo más correcto es usar AND, al menos eso es lo que he leído en la documentación de ADO.
Espero que esta pequeña aclaración te pueda ser de utilidad.
Nos vemos.
Guillermo
[pic]
 [pic] Más consejos para mejorar el acceso a los datos, aportadospor Norman A. Armas (25/Oct/2001)
Algunos consejos para mejorar el acceso a datos:
-Abrir el recordset o el Data sólo en el momento necesario, NUNCA abrir los recordsets o datas en el momento de cargar la forma (salvo en casos en que no queda mas remedio)
Por ejemplo si tienes un formulario con varios combos no es necesario llenarlos en el momento de cargar la forma, una buena costumbre escargarlos en el momento en que el usuario haga click en el combo.
-No cargar mas de 100 records como máximo en un grid o lista, si es necesario mostrar más, jugar con el SELECT TOP y el WHERE para mostrar los datos en bloques de a 100 (o menos de 100)
 
[pic]
 [pic] Compactar una base de datos con password y cambiarlo.  (24/Oct/2001)
Para compactar una base de datos con password (o contraseña), sehace prácticamente igual que en una base de datos sin password, lo único que hay que hacer es añadirle la cadena correspondiente al código mostrado anteriormente.
Este sería el código para compactar una base de datos con password:
je.CompactDatabase "Data Source=" & txtNombreBase.Text & ";" & _
"Jet OLEDB:Database Password=PasswordAnterior", _
"Data Source=" & sDBTmp & ";"
 
Y este otropara cambiarle el password actual y ponerle otro:
je.CompactDatabase "Data Source=" & txtNombreBase.Text & ";" & _
"Jet OLEDB:Database Password=PasswordAnterior", _
"Data Source=" & sDBTmp & ";" & _
"Jet OLEDB:Database Password=NuevoPassword"
 
[pic]
 [pic] Consejos para mejorar el acceso a los datos (04/Oct/2001)
Esta sección te mostrará algunos consejos con los cuales podrás mejorarel acceso a los datos, el primero de ellos, con el que inauguramos esta sección es de Norman A. Armas, si crees que tienes alguno que se pueda añadir, me lo mandas. Gracias.
1. Consejo aportado por Norman A. Armas, publicado el 04/Oct/2001

Nunca usar SELECT * FROM TuTabla., especifica siempre que campos son los que se quieren seleccionar en ese momento y que record o records
[pic][pic]Código de ejemplo de compacta, crear base y crear tablas con ADO (29/Sep/2001)
Este es el link al código completo de los tres casos indicados:
Cómo crear una base de datos con ADO,
Cómo crear tablas y
Cómo compactar una base de datos.
En la página se muestra el código completo, el cual puedes bajar mediante un fichero comprimido.
¡Que lo disfrutes!
Guillermo
[pic]
[pic]Compactar unabase de datos usando ADO y VB (29/Sep/2001)
Para compactar bases de datos usando ADO, tienes que crear una referencia a Microsoft Jet and Replication Objects 2.6 Library (JRO).
Nota: JRO sólo se puede usar con bases de datos Microsoft JET
Aquí tienes el código necesario para compactar una base de datos:
Private Sub cmdCompactar_Click()
' Compactar una base de datos con ADO
Dim sDBTmp...