' Return a boolean indicating whether the input connection string is for the' ADO.NET's SQL Server managed provider' Note: the function assumes the input string is a valid OLEDB or SQL Server' connection string, and it just verifies it does not contain the "Provider" ' value'' Examples:' Debug.WriteLine(IsSqlProviderConnString' ("server=(local);database=MyDB;uid=sa;pwd=;")) ' => True' Debug.WriteLine(IsSqlProviderConnString("Provider=SQLOLEDB.1;Data ' Source=.;User ID=sa;Password=;Initial Catalog=MyDB")) ' => FalseFunction IsSqlProviderConnString(ByVal connString As String) As Boolean connString = connString.ToLower() Dim hasProviderValue As Boolean = (connString.IndexOf("provider") > -1) Dim hasDbValue As Boolean = (connString.IndexOf("database") > -1) OrElse _ (connString.IndexOf("initial catalog") > -1) Return hasDbValue And (Not hasProviderValue)End Function