ADO模式可以把数据库定义为变量，在各个应用处引用？
一、Dim DBK As String = "DB01"
二、
Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase("DB01") '
可以改为
Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase("DBK") '
Dim db2 As HySGGql.Database = HySqGGl.DataBaseFactory.CreateDatabase("DBK", Vars("key1"), Vars("key2"))
可以改为
Dim db2 As HySGGql.Database = HySGGql.DataBaseFactory.CreateDatabase("DBK", Vars("key1"), Vars("key2"))
问题一：数据库定义为变量是否正确？如果正确代码要放在哪？
问题二：上面改引用是否正解？
问题三;key1,key2是可以任意比如，A1、A2，A1、A2的值，不要放在菜单全局变量，要放在系统哪里？
其变量的值：
Dim A1 As String = "123JK00003"
Dim A2 As String = "123JK00003001"
Dim db2 = HySqGGl.DataBaseFactory.CreateDatabase(DBK)
Dim DBK As String = "DB01"
Dim A1 As String = "123JK00003"
Dim A2 As String = "123JK00003001"
这些变量代码要放在系统变量哪里或管理项目的哪里？
全局代码
Dim DBK As String = "AA01"
报错
数据库配置异常！无有效的数据库设置。
全局代码
Public DBK As String = "AA01"
窗口打开加载
Dim db = HySqGGl.DataBaseFactory.CreateDatabase("DBK") '
查询语句
报错
数据库配置异常！无有效的数据库设置。