Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim percorso As String
percorso = Application.CurrentProject.path & "\" & Application.CurrentProject.Name

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & percorso & ";Persist Security Info=False"
cn.Open

codicefiscale & "'")
Dim cognome As Parameter
Set cognome.Value = Me.cognometxt

Dim nome As Parameter
Set nome.Value = Me.nometxt

Dim indirizzo As Parameter
Set indirizzo.Value = Me.indirizzotxt

Dim codicefiscale As Parameter
Set codicefiscale.Value = Me.codfisctxt


cn.Execute "INSERT INTO Clienti (Cognome, Nome, Indirizzo, codfisc) VALUES (@cognome, @nome, @indirizzo, @codicefiscale)"

Set rs = New ADODB.Recordset
Set rs = cn.Execute("SELECT @@IDENTITY AS nuovoID")
MsgBox (rs(0))
End Sub