ERROR ... 800a01bd

[dagui]

Hola.

Primero ese error significa que el objeto que estas usando no soporta esa función. Y me imagino que el error te lo está dando aquí:

strSQL = "SELECT Username, Password, Nombre, Email, Web, Direccion, Pais, Telefono, Comentario FROM mibase.DBF ORDER BY nombre"

Esto es porque en FORM lo que va es es nombre de la tabla donde vas a hacer la consulta, es decir, la tabla donde están los usuarios (supongo).

Además, si quisieras utilizar variables dentro del código SQL, debes tomar en cuenta que:

-Las variables de texto se colocan '"&variable&"'
-Las variables de número se colocan "&variable&".

Entonces, debes colocar el nombre de la Tabla a la que le quieres aplicar la consulta, en vez de la base de datos. Quedandote algo así:

strSQL = "SELECT Username, Password, Nombre, Email, Web, Direccion, Pais, Telefono, Comentario FROM tabla ORDER BY nombre"

Suerte y espero que te sirva.