Problema con l' esempio di "Approccio ai database"

Ciao ho problemi con l' esempio in https://www.mrw.it/vbnet/guide/approccio-database-vbnet_692.html

Ho copiato ed incollato esattamente il codice ma il risultao è sempre un errore che dice che il campo nome/cognome è vuoto....purtroppo non è così qualcuno mi può aiutare?

grazie:incazz:

Nulla da fare, il DB è nella directory del percorso ma da sempre lo stesso errore. Non è che per caso non gestisce i DB generati con Access 2007?

Questo è il messaggio di errore che ricevo ora sia con la sintassi per 2003 che con 2007...

Errore 1 Impossibile scrivere nel file di output 'C:\GestioneAnimatori\GestioneAnimatori\obj\Debug\GestioneAnimatori.exe': Impossibile accedere al file. Il file è utilizzato da un altro processo. . GestioneAnimatori

e questo è il listato:
Imports System.Data.OleDb

Public Class ins_dati

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Visible = True
Me.Visible = False
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objconn As OleDbConnection
Dim stringaconn As String
Dim stringasql As String
Dim objcomm As OleDbCommand

'Access 2007
' stringaconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
' stringaconn = stringaconn & "C:\GestioneAnimatori\Animatori.mdb;"
' stringaconn = stringaconn & " Persist Security Info=False;"

' Access 2003:
stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
stringaconn = stringaconn & "C:\GestioneAnimatori\Animatori.mdb"
objconn = New OleDbConnection(stringaconn)
objconn.Open()
stringasql = "Insert into Dati(cognome,nome) values('"
stringasql = stringasql & Me.txt_cognome.Text & "'" & ","
stringasql = stringasql & "'" & Me.txt_nome.Text & "'" & ")"
objcomm = New OleDbCommand(stringasql, objconn)
Dim risputente As Integer
Try
risputente = objcomm.ExecuteNonQuery()
If risputente = 1 Then
MsgBox("Inserimento effettuato con successo")
objconn.Close()
Me.txt_cognome.Text = ""
Me.txt_nome.Text = ""
Me.txt_cognome.Focus()
End If
Catch es As Exception
MsgBox("Errore: il campo cognome e/o nome sono vuoti")
objconn.Close()
End Try
End Sub
End Class