Visual Basic - dUPLICIDAD DE FACTURA

Hola buenas
Tengo realizado un programa de visual basic de vendas en red de dos ordenadores y con base de datos access, en el ke mi problema es que cuando ambos ordenadores han realizado una venta a la vez duplica los facturas

Este es el trocito de texto ke realiza la operacion alguien sabria alguna manera de solucionar esto


If rsAlbarcod.State = adStateOpen Then
rsAlbarcod.Close: End If

rsAlbarcod.Open "select * from Facturas where NFactura=" & Text1.Text & " ORDER BY NFactura", cn, adOpenDynamic, adLockOptimistic
If Not (rsAlbarcod.EOF Or rsAlbarcod.BOF) Then
AVERIGUAR 'LLAMADA A LA FUNCION Para ver si el codigo ya existe en la base de dato
Else
If rsAlbar.State = adStateOpen Then
rsAlbar.Close
End If
rsAlbar.Open "Facturas", cn, adOpenDynamic, adLockOptimistic
rsAlbar.AddNew
With rsAlbar
.Fields("NAlbaran") = Text1
.Fields("Matri") = Text1
.Fields("Facturas") = Text3
.Fields("Fecha") = mkbFec1
.Fields("CodCliente") = Text4
.Fields("NomFiscal") = Text5
.Fields("NomComercial") = Text6

.Update
End With