Hola
He realizado una pequeña prueba, y con el siguiente código me funciona. Si vas a la ayuda del execute, te pone un ejemplo amplio y simplemente con seguir el ejemplo es suficiente. De todas formas te pongo un ejemplo mio mas sencillo y probado (funciona correctamente), solo tienes que adaptarlo a tus necesidades.
Código:
Private Sub Comando0_Click()
Dim cn As New ADODB.Connection
Dim inserta As New ADODB.Command
Dim strInserta As String
Dim rs As New ADODB.Recordset
Set cn = Application.CurrentProject.Connection
strInserta = "INSERT into tabla1( num, nom) values(" & Texto1.Value & ", '" & Texto3.Value & "')"
Set inserta.ActiveConnection = cn
inserta.CommandText = strInserta
rs.Open "tabla1", cn, , , adCmdTable
inserta.Execute
rs.Requery
End Sub
--Saludos--