error del SW creando una base de datos

Este el codigo para crear una base de datos en el SW

Function creaBD(ByVal dsstr As String) As String

Try

Dim dsCN As String

Dim CnADO As New ADODB.Connection()

Dim mdb As New ADOX.Catalog()

dsCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dsstr & ";"

CnADO.ConnectionString = dsCN

mdb.Create(dsCN)

mdb.ActiveConnection.close()

Return "ok"

Catch err As Exception

Return (err.ToString)

End Try

End Function

este es el codigo de error que arroja el SW
<?xml version="1.0" encoding="utf-8" ?>
<string
xmlns="http://tempuri.org/">System...MException
(0x80004005): El motor de base de datos Microsoft Jet no puede abrir el
archivo 'c:\transacciones.mdb'. Está abierto en modo exclusivo por otro
usuario o bien necesita permiso para ver sus datos. at
ADOX.CatalogClass.Create(String ConnectString) at
DinoxWeb.Dinox.creaBD(String dsstr) in
c:\inetpub\wwwroot\DinoxWeb\Dinox.asmx.vb:line 3395



por favor si me pueden ayudar gracias