Hola
Te pongo la cadena de conexión que utilizo:
Código:
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=xxxxx"
Yo utilizo una base de datos access XP con ADO, otra cosa que he visto en tu código es que en Data Source tienes un espacio en blanco "Dat a"
--Saludos--