Error llenando dataset...

Hola,

haciendo esto:


Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta Dim
adapter As New OleDb.OleDbDataAdapter
Dim dsFamilias As New DataSet
Dim sql As String

sql = "Select * From Familias"
adapter.SelectCommand = New OleDb.OleDbCommand(sql, conn)
adapter.Fill(dsFamilias)


me da este error:


Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll

Información adicional: La información del error no está disponible:
DB_SEC_E_AUTH_FAILED(0x80040E4D).


Pero antes no me pasaba, creo que es que algo se ha corruptado o algo así... alguien sabe a qué se
debe y qué puedo hacer?

Gracias y saludos,