Problemas a acceder a un MDB

AOG
13 de Octubre del 2004
Hola, Tengo una solucin con dos proyectos uno es un proyecto de formularios Windows y el otro es un Servicio Web Asp.net, ha llamar a un mtodo del sercivio web que lo hace es realizar una consulta de actualizacin me provoca un error que dice: "La operacin debe usar una consulta actualizable." y la consulta es de actualizacion "Update Accesos Set ACTIVO = True Where Cod = '00'. Lo que hice es copiar este mtodo (procedimiento) del S. Web y lo pego en el proyecto de formularios windows lo ejecuto este procedimiento y me funciona, es ms, este mismo mtodo lo he ejecutado con conexin a base de datos MySQL y funciona, Que es la que est pasando?, Hay problemas con los servicios web asp.net con la conexin a base de datos de tipo MDB?, otro problema que me ocurre es que si la base de datos MDB est en otra mquina donde no est el servicio web rodando no me deja ni si quiera abrirla, me dice que est abierta en modo exclusivo o no tengo acceso, y si lo hago desde el proyecto formulario windows me funciona, por eso digo que si hay problemas con los mdb en los servicios web.
He han dicho que es porque el usario ASPNET no tiene permisos yo lo he comprobado en el administrador de equipos (usuarios) y este usuario est igual que mi usuario cuando entro en mi sesin (el S.O. es W. XP), no se donde mirar ms, donde puedo mirar y darle los permisos que hace falta en el caso de que se trate de permisos.

Este es el mtodo que tiene el Servicio Web:
<WebMethod()> Public Sub ActualizarMDB(ByVal SQL As string)
Dim sCadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0" _
& ";user id=" _
& ";Password=" _
& ";Data Source=c:1Unigest.mdb" _
& ";"
Dim Con As New System.Data.OleDb.OleDbConnection
Dim Cmd As New System.Data.OleDb.OleDbCommand
Dim I As Integer
Try
Con.ConnectionString = sCadenaConexion
Con.Open()
Cmd.Connection = Con
Cmd.CommandText = SQL '->"Update Accesos Set ACTIVO = True Where Cod = '00'"
Cmd.CommandType = CommandType.Text
I = Cmd.ExecuteNonQuery
Catch ex As Exception
MsgErrorSoap(ex, "Servisio1.ActualizarMDB")
End Try

Try
Con.Close()
Con.Dispose()
Catch ex As Exception
End Try
End Sub

Un saludo