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

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.CommandType = adCmdText
cmd.CommandText = "INSERT into clienti (Cognome) values (@Cognome)"

Dim prm As New ADODB.Parameter
Set prm = cmd.CreateParameter
prm.Name = "Cognome"
prm.Type = adChar
prm.Direction = adParamInput
prm.Size = 60
prm.Value = Trim(Me.cognometxt)
cmd.Parameters.Append prm

cmd.Execute