Access - duplicidad de registro

Hola que tal:

ojala me puedan ayudar con mi problema que es el siguiente:

tengo un codigo que lo que hace es asignar un numero de folio segun la fecha, es decir busca en la fecha del dia de hoy y asigna el numero de folio. el problema es que si se hace la operación en 2 terminales diferentes al mismo tiempo asigna el mismo numero de folio situación que esta mal. y el código es el siguiente:

strFecha = Date

strValor = "SELECT * FROM folio WHERE fecha = '" & strFecha & "'"

rs.Open strValor, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then
rs.MoveLast
Folio = rs.Fields(0) + 1

Else
Folio = 1
End If

rs.AddNew
rs.Fields(0) = Folio
rs.Fields(1) = strFecha
rs.Fields(2) = "Inicial"
rs.Fields(3) = Ini_RFC
Ini_Folio = rs.Fields(0)
rs.Update
Refresh
End If

una vez mas gracias por su tiempo y ayuda

Cambia el tipo de bloqueo para que te bloquee el registro editado.
Tambien puedes indexar el campo y ponerle sin duplicados.