实际17楼的想法,写了以下代码,可是实现不了想要的功能,错在那里呢?
If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fdr("远程数据源") & ";Persist Security Info=False") = True Then
Connections.Add("喜洋洋数据", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fdr("远程数据源") & ";Persist Security Info=False")
Else
Connections.Add("喜洋洋数据", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & fdr("数据源") & ";Persist Security Info=False")
End If