Error de conexion con access

[parra]

me quiero conectar a access me manda este error

El motor de base de datos Microsoft Jet no puede abrir el archivo 'C:\Documents and Settings\jose\Mis documentos\bd2.mdb'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.


este mi conection
Imports System.Data.OleDb

Public Class CLsconection
Function conec() As OleDbConnection
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\jose\Mis documentos\bd2.mdb")
Return cn

End Function


End Class

donde lleno el dataset
Imports System.Data.OleDb
Public Class llenar
Function datas() As DataSet
Dim cl As New CLsconection()
Dim ds As New DataSet()
Dim cmd As New OleDbCommand()
Dim cn As New OleDbConnection()
cn = cl.conec
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "Select * from dato"
Dim adap As New OleDbDataAdapter(cmd)
adap.Fill(ds) -----------------------------aqui revienta
Return ds
End Function
End Class