Public Sub GetSQLCommand(SqlKey As String)As String
Dim GetSQL as String="SELECT [Sql] FROM JRDC_SQL WHERE [Sql] is not null AND [Key]=?"
Dim res As String = pool.GetConnection.ExecQuerySingleResult2(GetSQL,Array As String(SqlKey)).ToLowerCase.trim
Return res
End Sub