inserimento dati in access

[19pantarei75]

salve a tutti
Premetto che sono alle prime armi.
Ho un semplice form per l'inserimento.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Db As Object = CreateObject("ADODB.Connection")     ' creare una nuova variabile connessione

        Db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Manuel\Desktop\esercitazione 1210\prova.mdb"

        Db.Open() ' aprire una connessione
        Dim a As String = name.Text
        Dim b As String = mail.Text
        Dim c As String = password.Text



        Dim cmdP As Object = CreateObject("ADODB.Command")
        cmdP.CommandText = "INSERT INTO Tabella_2 (nome,mail,[Password]) VALUES (?,?,?)"
        cmdP.Parameters.Append(cmdP.CreateParameter("nnome", 129, 1, 20))
        cmdP.Parameters.Append(cmdP.CreateParameter("nmail", 129, 1, 20))
        cmdP.Parameters.Append(cmdP.CreateParameter("npassword", 129, 1, 20))

        cmdP.ActiveConnection = Db
        cmdP.CommandType = 1
        cmdP.Parameters("nnome").Value = a
        cmdP.Parameters("nmail").Value = b
        cmdP.Parameters("npassword").Value = c
        cmdP.Execute()

        Db.Close() ' chiudere una connessione


        Db = Nothing     ' liberare la memoria di db




    End Sub

quando faccio BUILD SOLUTION non mi dà errori, ma quando inserisco i dati nel form da localhost/webApplication...
non li inserisci e mi dà il seguente errore

Server Error in '/WebApplication6' Application.
--------------------------------------------------------------------------------

Il modulo di gestione di database Microsoft Jet non è in grado di aprire il file 'C:\Documents and Settings\Manuel\Desktop\esercitazione 1210\prova.mdb'. Il file è già aperto con accesso esclusivo da un altro utente o è necessario disporre dell'autorizzazione per visualizzare i dati.

qualche aiuto?
Grazie.

[artcava]

Chiudi la tabella "Tabella_2" su access mentre fai il debug...

[19pantarei75]

grazie per avere risposto.
La tabella era già chiusa, ma per maggiore sicurezza ho riprovato.
Niente , mi dà sempre lo stesso errore.
Qualche suggerimento?

[artcava]

Apri Il DB Access, vai su Strumenti --> Opzioni, nella scheda Avanzate verifica che in Modalità di apertura predefinita sia selezionata la voce: "Accesso condiviso".

Se è già così allora non saprei

[19pantarei75]

purtroppo è già settato cosi.

E' come se non mi accettasse la stringa di connessione.
C'è qualche altra stringa per connettersi al database access?.

ho rivisto il codice in questo modo ma sempre lo stesso errore.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        Dim db As Object = CreateObject("adodb.connection")     'nel caso in cui non stiamo utilizzando riferimenti (runtime)

        db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Inetpub\wwwroot\WebApplication6\prova.mdb;mode=readwrite"

        db.Open() 'apre il db


        Dim a As String = name.Text
        Dim b As String = mail.Text
        Dim c As String = password.Text


        ' operazioni sul db aggiungere campi e valori

        Dim cmd1 As Object = CreateObject("adodb.command")
        cmd1.CommandText = "INSERT INTO tabella_2 (nome,mail,[password]) VALUES ('" & a & "', '" & b & "','" & c & ")"
        cmd1.ActiveConnection = db
        cmd1.CommandType = 1
        cmd1.Execute()

        db.Close() 'chiude il db
        db = Nothing     'libera la memoria dal db

    End Sub

qualche suggerimento? Sarei un attimino bloccato.

[artcava]

Purtroppo non mi viene in mente nient'altro, ma facendo una ricerca ho trovato
questo...

Spero possa esserti utile

[19pantarei75]

grazie per aver risposto.
Vediamo come posso arrangiarmi.