Function GetURL(ByVal N As String)
    Dim BROWSER, URL, CMD As String
    
    If (N = "00") Then Exit Function
    
    
    BROWSER = DLookup("[BROWSER]", "C_CTRL")
    URL = DLookup("[URL]", "C_URL", "([ID]='" & N & "')")
    CMD = BROWSER & " " & URL
    Shell (CMD)
    
    
End Function