Hola a todos primeramente este es el procedimiento insertar dentro de un evento de un boton.

Private Sub Insertar_Click()

Dim StringSql as String

StringSql ="Insert Into MiTabla(campo1,campo2,campo3)values "
StringSql = StringSql  & " (' " & TextBox1  &" ' , ' " & TextBox2   & " ' ,  ' " &  TextBox3  & " ' )"

Currentdb.Execute StringSql

End Sub


Cualquiera duda o pregunta enviarme un E-Mail y luego estare publicando su respuesta.