Ado.net y acces

Yo en tu lugar, no haría las conexiones mediante los "asistentes" y las haría directamente a través de los objetos de acceso a datos y mediante código. Yo las pruebas que he hecho de esta manera me han ido bien.

Yo no programo en VB.NET pero puedo deducir que el problema que tienes esta muy relacionado con la forma en que intentas acceder a los datos.
Intenta la antigua conexión a la base de datos por código, o sea creando una variable Objeto para la base de datos y otra para un Recordset.
También puedes intentar guardando la base de datos con una version anterior de access y siempre verificando que no este protegida.
Prueba con eso y si sigues con problemas me dices por me voy a poner a ver detallamente el problema.

Nuevamente gracias por tu ayuda, pero hago todos loa pasos que me describes, hago la prueba de conexión me dice que la conexión fue exitosa, ¿pero cuándo cierro las propiedades para ya terminar me vuelve a salir el mismo error?: unable to connect to database the connection failed. check your usename and password and try again. Y por lo tanto no logro conectarme a mi base de dato,
Como seria la conexión sin usar los asistentes, podría ser usando puro código, me podrías mostrar como seria con código te lo agradecería mucho espero tu respuesta. También intente usando la base de datos de access neptuno, pensando que la mía este mal diseñada pero siempre hace el mismo error

Seguramente es mejor por puro código, así te aseguras compatibilidad.
Podes usar las siguientes sentencias:
Dim Base As Database
Dim RS As Recordset
'luego configuramos los objetos
Set Base = OpenDatabase(OrigenDatos)
'donde OrigenDatos es una
'varible Stringque contiene
'la ruta de tu base de datos
Set RS = Base.OpenRecordset("Tabla1")
'despues podes usar el RS
'para editar, añadir o borrar
'Registros
'Añadir
RS.AddNew
RS(1)="Algo"
RS(2)="Otra cosa"
RS.Update
'este secillo ejemplo crea
'un registro nuevo
'y en la columna 1 coloca
'la cadena "Algo" y en la
'Columna 2 la cadena "Otra
'Cosa"
Lo mismo sería para editar un registro, ahora te paso otro ejemplo en que se busca en base de datos y se elimina un registro con determinado criterio.
Dim dbBuscar As Database
Dim rsBuscar As Recordset
Set dbBuscar = OpenDatabase(OrigenDatos)
Set rsBuscar = dbBuscar.OpenRecordset("SELECT * FROM [Personas] WHERE [Nombre] like 'Daniel'")
rsBuscar.Delete
'el ejemplo va a buscar en
'la tabla "Personas" en el
'Campo "Nombre" al Primer
'"Daniel" y despues lo borra
En ambos casos Visual basic selecciona el Driver más apropiado para abrir la Base de datos creo que por defecto es "Microsoft Access Driver 1.XX". No es tu caso pero si tienes una base de datos con contraseña deberías configurar el Recordset de otra forma usando una denominada ConnectionString, en ella usar el Driver adecuado que puede ser el "MS Jet 4.X xxx".
Resumidamente, si utilizas las sentencias que te explique no debería haber problemas.

Gracias por tu respuesta, pero como seria usando código en visual basic.net usando los objetos ado.net(oledbconnection, dataadapter, dataset)y en base de datos access 2003, gracias espero tu pronta respuesta

A ver, tu problema al parecer no tiene que ver con visual basic.net debido a que trabajar con bases de datos access es muy complicado debido a que las tablas se hacen a la pinta de la microsoft yo preferiría trabajar con oracle u otra basada en sql pero bueno, a mi me aparecía un error similar en visualbasic6.0 y era por un error de indices es decir: cuando tu llamas a un campo de una base de datos access desde visual, no llamas al nombre del campo, sino al nombre del indice, por esto cuando el buscador de visual va a la base de datos access, busca el indice, y este no se encuentra, access no tiene alguna conexión para decir por pantalla de visual basic que hay un error en la base de datos, es por esto que todo tipo de conexión falla y te da el error de user-password.
Usualmente cuando uno crea una "principal-key" en un campo de access el indice del campo por defecto queda como principal-key así que tienes que cambiarlo por el nombre del campo y ademas verificar si el campo que no es clave este indexado y sin duplicados...

El codigo que yo empleaba en visual basic6.0 para poder llamar aa una bas e de datos era:
//declaraciones
dim base as database.
dim tabla as recordset.
dim tabla1 as recordset.
//asignaciones
set base=OpenDatabase("ubicacion de la base de datos").
set tabla = base.openrecordset("nombre de la tabla").
set tabla1= base.openrecordset("nombre de la tabla").
// llamado de los campos
por su indice es decir un busqueda.
tabla.index = "codigo"
//si es que los textbox son por indices.
tabla.seek "=", text1(i).text
if tabla.nomatch then
msgbox "no se encuentra el codigo".
else
//llenado de campos o mostrado de campos..
//para llenar.
tabla.codigo = text1.text.
//asi sucesivamente con el resto de los datos..
// Llenar por indices, para poder llenar por indice hay que coincidir los textbox con los campos de las tablas por que de lo contrario el nombre te puede quedar en la dirección la forma es esta:
for i=0.
for i = 0 to n.
tabla.fields(i)= text1(i).
next.
tabla.update.
tabla.close.
msgbox "datos guardados",vbinformation.
No te olvides de cerrar las tablas cuando están abiertas y ademas no te olvides de actualizar las tablas antes de cerrarlas.
Para mostrar solo debes invertir osea
text1.text = tabla.codigo.
Las cosas pero es igual.

Nuevamente gracias por tu ayuda, pero realizo la conexión que me detallas, hago todos loa pasos que me describes, hago la prueba de conexión me dice que la conexión fue exitosa, ¿pero cuándo cierro las propiedades para ya terminar me vuelve a salir el mismo error?: unable to connect to database the connection failed. check your usename and password and try again. Y por lo tanto no logro conectarme a mi base de dato,
Como seria la conexión sin usar los asistentes, podría ser usando puro código, me podrías mostrar como seria con código te lo agradecería mucho espero tu respuesta. También intente usando la base de datos de access neptuno, pensando que la mía este mal diseñada pero siempre hace el mismo error