Visual Basic - Ayudenme Por Favor !!!!!!!

Hola amigos:

Tengo un programa en visual Basic 6, toma datos de una Base Access 2000,
el problema es que hago un SQL ( muy sencillo ), para un programa de consulta,
y me da el sig Error

Error -2147467259(80004005)' en tiempo de ejecución
el proveedor de datos u otro servicio devolvió un estado E_fail

Alguien me puede decir que es Esto ?

un Abrazo
Marcelo

Pdt:
es Urgente, no tengo mucho tiempo

Sin duda, es que falla al conectarse, bien porque la cadena de conexion esta mal creada, la BD esta mal, etc..
Puedes ser explicito y decir como intentas conectarte?, ADODC, DATA, Código ADO?, .....

Que tal Marcelo, el problema podría ser la versión que estas utilizando de Access, según se Visual Basic 6.0 trabaja con versiones de access 97 o menor.
Podrias ejecutar la opción de converti la base de datos a otro formato (versión), esto lo encuentras en el menú herramientas, utilidades de la base de datos, convertir base de datos, y ahí seleccionas la opcion de formato de archivo de access 97. Solo sigue el ayudante y listo podras utilizar tu base de datos en visul basic 6.0.
NOTA: Siempre es recomendable que guardes una copia de tu base de datos en caso de que ocurriese algo extraño

Espero que este comentario sea de utilidad.

Atentamente
Carlos Gómez

Lo anteriormente dicho por Carlos, no es del todo exacto, VB6 si puede trabajar con versiones ACCESS posteriores a 97. Lo que hay que tener son las librerias "dll" de Access actualizadas. Por supuesto siempre queda la opcion de trabajar con la version 97 o anteriores. Visita la pagina de Microsoft y en "descargas" encontraras la actualizacion.

Hombre, espero entonces que el comentario que hice anteriormente no cause ninguna confusión o problema.
PD. iñaki, gracias por el tip.

El problema que pareces tener es la versión del Proveedor de Base de Datos

Utiliza este código en un modulo :

Sub AbrirConexion()
'Ruta = "f:\Acciones de Personal\Acciones de Personal.mdb"
Ruta = App.Path & "\Chat.mdb"
Set CE = New Connection
CE.Provider = "MICROSOFT.JET.OLEDB.4.0"
CE.ConnectionString = "Data Source=" & Ruta

CE.Open
End Sub

'Este código es para bases de datos del tipo Access 2000,
'en caso de que usen una de Access 97, hay que cambiar
'el provider por: Provider=Microsoft.Jet.OLEDB.3.51;

y lo que tienes que poner en el Load del form es:

AbrirConexion