主题：数据源连接

我想实现在项目事件里设置的 SQL服务器名称、数据源、用户名、密码 为项目默认连接

求助，

 

BeforeConnectOuterDataSource事件代码

If e.Name = "数据源" Then
Dim CnNew As ADODB.Connection
CnNew.Provider = "sqloledb.1"
CnNew.Properties("data source").value = "192.168.1.100"    'SQL服务器名称
CnNew.Properties("initial catalog").value = "数据源"    '数据源

CnNew.Properties("user id").value = "admin"   ’用户名
CnNew.Properties("password").value = "123456789"     ‘密码

End If

 

谢谢！