Gravar Código MAC

Caros Mestres, Boa Noite!

Estou desenvolvendo um aplicativo em access e para protege-lo de pirataria gostaria de fazer o seguinte:

- Identificar se a tabela MAC do banco esta vazia.
  - Se estiver vazia, obter o código MAC e gravar o código MAC nesta tabela e avançar na aplicação chamando o programa de menu.
- Se a tabela MAC não estiver vazia:
  - Obter o codigo MAC, ler a tabela MAC e comparar os códigos obtidos.
  - Se forem iguais avançar na aplicação chamando o programa de menu, senão exibir mensagem de erro e encerrar a aplicação.

Grato a quem puder ajudar este aprendiz.

Boa noite

Bons estudos

José Luiz

Ajudou ?

Caro Assis, Boa Tarde!

Desculpe a demora no retorno, estava tentando adaptar a minha rotina. Minha rotina funciona como eu quero, porém a inserção não esta funcionando. Não dá erro e não grava o registro. Se puder me ajudar mais uma vez, segue minha rotina para você analisar e me dizer onde esta o erro. Grato.
'Rotina de Controle do endereço MAC.

Código:

Dim strResultado As String
Dim strEndereco As String
Dim strVencimento As String
Dim strnomedamaquina As String
Dim objFSO As Object
Dim objShell As Object
Dim objTempFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")

'Cria um arquivo temporário para receber o resultado do comando GETMAC
objTempFile = objFSO.GetTempName

'Executa o comando GETMAC e transfere o resultado para o arquivo
'temporário objTempFile
objShell.Run "cmd /c GETMAC /NH /FO CSV >" & objTempFile, 0, True

'Abre o arquivo temporário
Set objTextFile = objFSO.OpenTextFile(objTempFile, 1)

'Obtém o resultado do comando GETMAC, lido do arquivo temporário objTempFile
Do While objTextFile.AtEndOfStream <> True
  strResultado = strResultado & objTextFile.ReadLine
Loop

'Fecha o arquivo temporário
objTextFile.Close
'Deleta o arquivo temporário
objFSO.DeleteFile (objTempFile)

If Nz(DCount("*", "[EndereçoMAC]")) = 0 Then
  strEndereco = Mid$(strResultado, 2, 17)
  strnomedamaquina = Environ("ComputerName")
  strVencimento = "99/99/9999"
  Me.Texto127 = strEndereco
  Me.Texto129 = strnomedamaquina
  Me.Texto131 = strVencimento
  'CurrentDb.Execute = "INSERT INTO EndereçoMAC (CodigoMAC,nomedamaquina, Vencimento) VALUES('" & Me.Texto127 & "', '" & Me.Texto129 & "', '" & Me.Texto131 & "')"
Else
  If Me.CodigoMAC = Mid$(strResultado, 2, 17) Then
     Set objShell = Nothing
     Set objFSO = Nothing
     Exit Sub
   Else
     MsgBox "Você não esta autorizado a utilizar o aplicativo.", vbInformation, "Aviso"
  Application.Quit
  End If
End If

Sair:
  Set objShell = Nothing
  Set objFSO = Nothing
  Exit Sub

End Sub

Caro Assis, A rotina apresenta erro sim, nos textos 127, 129 e 131 ele apresenta o erro: "O Argumento não é opcional"