Запуск VBA функции при открытии таблицы

Private Sub Form_Open(Cancel As Integer)
Const sQ = "SELECT SerialNumber FROM Table1"
Dim v, cn As ADODB.Connection
Set cn = CurrentProject.Connection
If Not cn.Execute(sQ).EOF Then
    v = cn.Execute(sQ).GetRows
    If v(0, 0) = serNumSysDisc Then Exit Sub
End If
End  'не даст форме открыться
'DoCmd.Quit 'закроет проложение (MS Access)
End Sub
Function serNumSysDisc$()
Dim FSO, DRV
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DRV = FSO.GetDrive(Environ("SystemDrive"))
serNumSysDisc = Hex$(DRV.SerialNumber)
End Function

Const COMPUTERNAME = "COMPUTER1" 'имя компутера
Const USERNAME = "User1" 'имя пользователя
Const SERIALNUMB = "44B842BC" 'серийный номер диска
 
Function serNumSysDisc$()
Dim FSO, DRV
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DRV = FSO.GetDrive(Environ("SystemDrive"))
serNumSysDisc = Hex$(DRV.SERIALNUMBER)
End Function
Private Sub Form_Open(Cancel As Integer)
If Not COMPUTERNAME = Environ("ComputerName") Then
ElseIf Not USERNAME = Environ("UserName") Then
ElseIf Not SERIALNUMB = serNumSysDisc Then
Else
    Exit Sub
End If
DoCmd.Quit
End Sub

Sub readData()
Debug.Print Environ("ComputerName") 'имя компутера
Debug.Print Environ("UserName") 'имя пользователя
Debug.Print serNumSysDisc 'серийный номер диска
End Sub