Hola Hortencio.. una forma de utilizar los errores inesperados es aprovechando On Error GoTo
se usa asi:


On Error GoTo Continuar
'''Aqui seguiria nuestro codigo del programa que estemos haciendo
Continuar:
If text1.text="" Then
' aqui seguiria mas codigo que exista en nuestro programa
End If


NOTA sobre el USO:

En poner
On Error GoTo Continuar
quiere decir que al aparecer el error el programa buscara la linea CONTINUAR (puedes poner cualquier nombre) y continuara desde ahi evitando todo el codigo antes que este.

NOTA 2:
Continuar:
If text1.text="" Then
' aqui seguiria mas codigo que exista en nuestro programa
End If


en esta parte.. es importante especificar donde empieza el codigo CONTINUAR

Saludos espero te sirva.

Haber si entendi. Seria asi?

Private Sub ListaDatos_Click()

On Error GoTo Continuar
With RsLibros
If .BOF Or .EOF Then Exit Sub
.Find "Numero_adquisicion='" & Val(GrillaLibros.Columns(1).Text) & "'"
LbCodigo.Caption = !Id 'muestra el numero del codigo

txtAdiqui.Text = !Numero_adquisicion
txtISBN.Text = !Isbn
txtTitulo.Text = !Titulo
txtAutor.Text = !Autor
txtEdicion.Text = !Edicion
txtEditora.Text = !Editora
txtAno.Text = !Ano
txtPaginas.Text = !Paginas
CboIdioma.Text = !Idioma
CboCategoria.Text = !Categoria
txtUbicacion.Text = !Ubicacion
txtContenido.Text = !Contenido
txtObservacion.Text = !Observacion
End With
End Sub

If text1.text="" Then (ESTE COMO SERIA?)
' aqui seguiria mas codigo que exista en nuestro programa (EL CODIGO QUE SEGUIRIA AQUI SERIA EL DE ARRIBA?)
End If

MUÉSTRAME COMO SERIA POR EJEMPLO CON ESE CODIGO?