Guardar Datos Rápido en tabla access

Tengo un botón para guardar en un formulario Access, el cual valida que los campos estén llenos antes de guardar en la tabla y funciona perfectamente en mi computadora, tarda alrededor de 1 segundo en guardar, el problema está en que este Access lo tengo en una carpeta en Red y lo usan en otras computadoras un poco antiguas y en estas compus el guardar tarda hasta 5 segundos para cada registro.

He tratado de buscar en internet como optimizar el guardar pero no tengo idea como hacerlo.

Si alguno de ustedes sabe cómo puedo puede hacer para que el guardar sea más rápido se lo agradezco de antemano

El código del botón es el siguiente:

Private Sub BtnGuardar_Click()

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("tblConversation")

    Dim msg As String, estilo, title As String

    estilo = vbCritical + vbOKOnly

    title = "Error en la inserción por falta de datos"

Msg = "No se han podido crear los registros solicitados por no existir ninguna entrada en el campo "

    If IsNull(Me.txt_Num_Identificacion) Then

        msg = msg & "Identificación."

        MsgBox msg, estilo, title

        Me.txt_Num_Identificacion.SetFocus

        Exit Sub

    End If

    If IsNull(Me.txt_NOMBRE_COMPLETO) Then

        msg = msg & "No has buscado al Paciente."

        MsgBox msg, estilo, title

        Exit Sub

    End If

    If IsNull(Me.txtTipo) Then

        msg = msg & "No has buscado el Tipo de Documento."

        MsgBox msg, estilo, title

        Me.txtTipo.SetFocus

        Exit Sub

    End If

    If IsNull(Me.TxtCodigoEspecialidad) Then

        msg = msg & "Código de la Especialidad."

        MsgBox msg, estilo, title

        Me.TxtCodigoEspecialidad.SetFocus

        Exit Sub

    End If

    If IsNull(Me.txtNom_Esp) Then

        msg = msg & "Nombre de la Especialidad."

        MsgBox msg, estilo, title

        Me.txtNom_Esp.SetFocus

        Exit Sub

    End If

rs.AddNew

rs!Conversation1 = fOSUserName() & " "

rs!Num_Identificacion = " " & txt_Num_Identificacion

rs!Paciente = " " & txt_NOMBRE_COMPLETO

rs!Consulta = "" & txtNom_Esp

rs!Tipo = "" & txtTipo

rs!Observaciones = "" & txtObservaciones

rs.Update

rs.Close

db.Close

txt_Num_Identificacion.SetFocus

txt_Num_Identificacion = Null

txtNom_Esp = Null

txtTipo = Null

txtObservaciones = Null

txt_NOMBRE_COMPLETO = Null

End Sub