وضع برنامج في شيكة داخلية

سلام عليكم

قمت بتطوير برامج في أكسس هدا من فضل الله ثم الفضل يعود بحثي في المنتديات مثل هدا المنتدى الجميل.

قمت ببرمجة برامج كلها تفعل برقم الهرد ديسك الطريقة المعروفة عند المبرمجين وسف أضع الكود المستعمل أمور تعمل بشكل جيد عندما يكون حاسوب واحد  يعني يعطيني رقم الهرد ديسك و واضع كود التفعيل ويفعل البرنامج المشكلة هي عندما افعل البرنامج في حاسوب السرفر ياخد هرد دسك السرفر وعندما ادهب الى حاسوب الثاني المتصل بسرفر وافتحه يطلب التفعيل من جديد وعندما افعل الحاسوب الثاني السرفر يطلب التفعيل من جديد  ايظا اي الكود ياخد هرد ديسك واحد اخير لا اكثر وهده مشكلة عندما يطلب منك شخص ان تضع برنامج في شبكة داخلية مشاركة البرنامج اكثر من حاسوب فوجت أن هدا الكود لا يناسب فهل من طريقة أخرى  يعني انأ أريد عندما أقوم بمشاركة البرنامج في شبكة داخلية افعله مرت واحد في السرفر باقي الحواسيب  المتصلة لا تطلب مني التفعيل

الاستفادة روابط لي برامجي

برنامج كراء السيارات

كود المستعمل

Private Sub Commande1_Click()
 Dim DB As Database
    Dim rs As Recordset
Set DB = CurrentDb
    Set rs = DB.OpenRecordset("TBpass")
    If rs.EOF = True Then
       rs.AddNew
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
Else
rs.Edit
       rs!Ser = Me.SERTEXT.Value
       rs!HdNum = Me.HdNum.Value
       rs.Update
       rs.Close
       End If
Dim X, x2
X = Nz((Me.HdNum)) * 236
x2 = Nz(DLookup("ser", "TBpass"), 0)

If "'" & x2 & "'" = "'" & X & "'" Then
DoCmd.Close
DoCmd.OpenForm "Gestion de location de voiotures"
Else
MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact le Fournisseur 0550735799"
DoCmd.Quit
End If
End Sub