Access - Accion de 1 boton y una consulta en uno solo

Hola a todos, soy nuevo en access, y espero que puedan ayudarme con los siguiente,
Tengo un formulario donde tengo un boton que me inserta los datos de una lista, aqui el codigo.

Private Sub Comando4_Click()
Dim MyDB As DAO.Database
Dim rstSelectedCat As DAO.Recordset
Dim i As Integer
Set MyDB = CurrentDb()
Set rstSelectedCat = MyDB.OpenRecordset("NEXO", DB_OPEN_DYNASET)
ListOrigen.SetFocus
For i = 0 To ListOrigen.ListCount - 1
If ListOrigen.Selected(i) Then
rstSelectedCat.AddNew
rstSelectedCat!Sede = ListOrigen.Column(0, i)
'rstSelectedCat!CatNombre = ListOrigen.Column(1, i)
rstSelectedCat.Update
ListOrigen.Selected(i) = False 'clears the selection
End If
Next i
End Sub

y ademas tengo una consulta de actualizacion que ejecuto luego de darle clic al boton

Como hago para poner un solo boton, que me ejecute el codigo de arriba y acto seguido la consulta de actualizacion??

Derrepente es algo muy facil , pero espero puedan ayudarme. Gracias

Para ejecutar una consulta lo puedes hacer de 2 maneras.

Si la consulta esta generada la ejecutas

DoCmd.OpenQuery

Pero te recomiendo que generes la instruccion SQL de la consulta (por ejemplo en una variable

StringSQL = (aca escribes el string de la consulta)
Luego ejecutas
DOCMD.RUNQUERY StringSQL

Espero que te sirva