'add a command that does not exist
public Sub AddCommand(scommand As String, qry As String)
scommand = scommand.tolowercase
Dim skey As String = $"sql.${scommand}"$
If commands.ContainsKey(skey) = False Then
commands.Put(skey, qry)
Log("AddCommand...")
Log(scommand)
Log(qry)
End If
End Sub