Dim fetch As SDUIFetch
fetch.Initialize(baseURL)
fetch.SetContentTypeApplicationJSON
If UseApiKey Then fetch.AddHeader("X-API-Key", sApiKey)
fetch.AddHeader("X-Host", sHost)
fetch.AddHeader("X-User", sUser)
fetch.AddHeader("X-Password", sPassword)
fetch.AddHeader("X-DBName", sDbName)
fetch.AddHeader("X-Driver", sDriver)
fetch.AddHeader("X-Port", sPort)