我的项目原来是使用Access，现在准备换成SQL数据源，并且我想保留项目对Access数据源的使用，那么所有针对后台数据的代码中只要涉及逻辑性和日期型代码都要添加数据源判断

用If Connections("Data").SourceType = 1 Then \'Access数据源   
ElseIf Connections("Data").SourceType = 2 Then \'SQL Server数据源
End If

我看了一下代码有400多页，如果分别修改添加，那个工程量非常大，因此我想在每个事件中能不能作这样的设计，一开始就设一个变量，

If Connections("Data").SourceType = 1 Then \'Access数据源   

    变量 ＝ True
ElseIf Connections("Data").SourceType = 2 Then \'SQL Server数据源

    变量 ＝ 1
End If

然后对下面需要转换的True统统用“& 变量 &” 替换。但是这个变量怎么设，变量值从逻辑型到数字型怎么转换，我没有办法。

不知那位大神有好的思路？

1、变量定义成字符类型，那赋值什么都可以。

2、如果日期的替换，就要修改你原来的代码了，不要写死#和\'，改成变量引用。